Gomme TYRR 


Data Base 
Reporter 


nstruction 
Manua 


con 


es 


Cromemco’" 


DBR 
Data Base Reporter 


INSTRUCTION MANUAL 


CROMEMCO, Inc. 
280 Bernardo Avenue 
Mountain View, CA 94043 


Part No. 023-4024 


Copyright © 1981 
By CROMEMCO, Inc. 
ALL RIGHTS RESERVED 


February 1981 


This manual was produced on a 
Cromemco System Three computer 
utilizing a Cromemco HDD-22 
Hard Disk Storage System 
running under the Cromemco 
Cromix Operating System. The 
text was edited with the 
Cromemco Cromix Screen Editor. 
The edited text was formatted 
using the Cromemco Word 
Processing System Formatter II. 
Pinal camera ready. copy was 
printed on a Cromemco 3355A 
printer. 


Cromemco DBR Manual 


CHAPTER 1: 


CHAPTER 3: 


CHAPTER 4: 
— Aal 


INTRODUCTION 


What is DBR? 
Manual Structure 
Manual Conventions 


USES FOR DBR 


Data Bases 

Reports 

Demonstration Example - The Members Report 
Se5ek The Simple Report 

2 Selecting the Data for the Report 

3 Fancier Output 

4 Sorting the Output 

5 Performing Calculations 

6 Grouping the Data in the Report 

7 Changing the Margins and Page Size 


HOW TO WRITE AND RUN DBR PROGRAMS 
Creating the Source Code File in the Editor 
Compiling the Program 
Preparing the Program 
Running the Program 

COMPLETE DEFINITION OF THE DBR LANGUAGE 


Syntax and Grammar Rules for DBR Source Files 


4.1.1 A Free Format Language 
4.1.2 Comments 

4.1.3 Subscripting 

4.1.4 Numbers 

4.1.5 Field Names 


The INPUT Command 
The OUTPUT Command 
The FIND Command 
The SORT Command 
The FORMAT Command 
4.6.1 The FIRST PAGE HEADER Clause 
2 The PAGE HEADER Clause 
3 The ON EVERY RECORD Clause 
4 The ON BREAK OF Clause 
5 The ON LAST RECORD Clause 


On im Fe Les 


Cromemco DBR Manual 


CHAPTER 5: 


CHAPTER 9: 


CHAPTER 10: 


ir 


6 The PAGE TRAILER Clause 
atements 
1 The PRINT Statement 
2 The PRINT USING Statement 
4.7.2.1 Arithmetic Expressions 
2 The Aggregates COUNT, 
PERCENT, TOTAL, and AVERAGE 
es GROUP Aggregates 
24 PAGE NUMBER 
ms) RECORD NUMBER Print Item 
7.3 Special PRINT Statements 
74 The SKIP N LINES Statement 
7.95 The SKIP TO TOP OF PAGE Statement 
7.6 The PAUSE Statement 


ADVANCED FEATURES AND ISSUES 


Output to a File 

Output to a Data Base 

Using Regular BASIC Files for Data Input 

Using Data Base Compatible Files for Data Input 
Nature of the DBR Language 

Summary of Runtime Activities 


MORE EXAMPLES 
Personnel Review 
Payroll Check Writing 
Inventory Example 
Real Estate Example 
Mailing Labels 
Scientific Laboratory Statistics 
Altering a Data Base 


GLOSSARY 
ERROR MESSAGES AND RECOVERY PROCEDURES 
TIME REQUIREMENTS FOR RUNNING TYPICAL REPORTS 


DBR GRAMMAR - BNF 


121 


237 


139 


1.1 


Cromemco DBR Manual 
Introduction 


INTRODUCTION 


The introduction will discuss the nature of DBR as 
a tool of information processing that is simple 
enough to be in easy reach of the computer novice, 
yet sophisticated enough to be invaluable to the 


experienced programmer. The structure of this 
Manual as an explanative learning aid as well as a 
complete specification will be discussed. The 


conventions used in the manual will also be covered 
in this introduction. 


WHAT IS DBR? 


DBR is a new programming language designed to aid 
users of the Cromemco Data Base Management System 
in producing reports from their data bases. The 
DBMS has some capability to print selected 
information in the data base through its function 
number 6 which allows the user to make a data base 
inquiry. Function 9 is also specially designed for 
a particular type of report, mailing labels. 


However, the user often wishes to print information 
in the data base according to a special format that 
the DBMS does not offer. Perhaps it is necessary 
to perform calculations on the NUMERIC data items, 
such as TOTAL, AVERAGE, COUNT or PERCENT. It may 
be desirable to have the data sorted and grouped by 
one of the sort criteria, and then have these 
arithmetic functions performed upon those groups. 


DBR is a language that easily performs all of the 


.above functions. Even though DBR is a true 


programming language, it can be approached by those 
who are not familiar with programming techniques. 
Some familiarity with the Cromemco Screen Editor is 
required to prepare DBR programs, but this software 
system is also easily learned. 


One of the reasons DBR is usable by the novice is 
that it allows the user to express desires directly 
in terms of the report to be written. For example, 
the language was designed to automatically print 
headers and trailers on the pages of the report. 
The content of these headers and trailers, as well 
as the content of the body of the pages, is 
specified in the DBR program. 


The language will perform sorting automatically, 
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whether or not DBMS sort files exist for the fields 
of interest. The only file DBR needs is the DBMS 
data file. 


A subset of the data in the data base can be 
selected using a very flexible FIND command. A 
typical command would be: 


FIND STATE = "CA" AND YEAR >= "75" END 


This command would find all of the records where 
the field "state" contained the value "CA", for 
"California", and had a "year" field that contained 
a date greater than-or equal to 1975. The full 
flexibility and power of the FIND command is 
described later. 


DBR programs, with the FIND command and other 
commands to indicate the sorting and formatting of 
the report, are translated by the DBR compiler into 
a program in Cromemco Structured BASIC. The DBR 
user need not know BASIC, but the BASIC programmer 
will find DBR easier to "pick up" than the complete 
novice. 


Unlike BASIC, DBR is a compiler as opposed to an 
interpreter. As demonstrated in the flow chart on 
the following page a DBR program is created in the 
Screen Editor and run through the DBR language 
translator (compiler). The resulting BASIC is 
linked with a library of BASIC routines with a 
simple command, and the report writing program is 
created. Each time the report writing program is 
run it reads the records to be included in the 
report twice; once to sort and find the records 
which the user has chosen with the SORT and FIND 
commands (qualification half), and then again to 
actually print the report (report half). This 
program can then be run again and again as the data 
changes over time. The resulting program is truly 
a production report generating program. (For more 
specifics on runtime activities see Section 5.6.) 


Some BASIC programmers are familiar with the format 
of the DBMS data file and are capable of writing 
programs to print reports from them. The majority 
of such report generating programs are within the 
scope of DBR's capabilities. Experience has shown 
that DBR can reduce the time needed to devélop 
these programs by a factor of five to ten. 
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DBR Compilation and Execution 


DBR programs, once written and used, are also much 
easier to modify and otherwise maintain than their 
counterparts in BASIC. DBR programs are typically 
only one fifth the size of an equivalent BASIC 
program. 


DBR can send its output to the line printer, 
through the use of the CDOS CNTRL-P convention, or 
the program can be written so that the output is 
written to a named file. Thus, the file can be 
printed later or kept for the archives. 


DBR can also read from data files other than DBMS 
data files. Thus, Since it can sort and send its 
output to a file, it can be used as a sort package. 


Finally, DBR can be used to add and delete fields 
from a data base system. This is accomplished by 
asking DBR to read a data base and generate another 
data base data file that either has one or more new 
fields or is missing one or more of the old fields. 
The DBR language contains an optional statement 
that allows the user to specify that the output is 
to go to a file, and that this file is to be 
formatted like a DBMS data file. 
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However, these are considered advanced features of 
the language. The main intent of DBR is to provide 
DBMS users with an easy to use tool that can be 
used to derive reports from DBMS data files, and 
make their Cromemco computers even more productive. 


Section 5.5 of this manual neces ka a more thorough 
discussion of the nature of DBR as a programming 
language, where it came from, what its design 
philosophies are, and how it compares to other 
programming languages. This reading is recommended 
only for interested parties. It is not required 
for a complete working knowledge of DBR. 


MANUAL STRUCTURE 


This manual has been written with the novice 
programmer in mind. In fact, the language itself 
has been designed to be as easy to learn and uSe as 
possible. English and English like constructs are 
used in the vocabulary of the language as much as 
possible. The error messages printed by the 
compiler when incorrect programs are recognized are 
self explanatory, but additional explanation can be 
found in Chapter 8 of this manual. 


Beginning programmers and programmers who are new 
to a certain type of language prefer to have the 
language explained rather than defined. They like 
to have the language's features demonstrated with 
examples that they may mimic and vary for their own 
specific needs. Most of this manual explains the 
DBR language and provides examples. The language 
is more strictly defined in Chapter 4 and Chapter 
10. 


Chapter 2 begins the explanation of the language 
with an example, and carries the example through 
several variations. Chapter 6 contains several 
examples that intentionally range over a wide 
variety of situations and applications. 


Chapter 3 contains the explanation of how to use 
the DBR system and the Screen Editor to create DBR 
programs, compile them, compare them, and run them 
against the data base to produce the report. 


Advanced features are explained in Chapter 5. This 
section includes discussions of how to use DBR to 
write reports from files other than DBMS data 
files, how to output the report to a file, and how 
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to output the report to a DBMS data file. 


The advanced features are not essential reading for 
programmers who wish to use only DBMS data files. 
For that matter, this could probably be done by 
only reading Chapter 2 and Chapter 3, but the 
reading of Chapter 4 is strongly recommended. 


Even though the significance and usefulness of all 
of the language features defined in Chapter 4 might 
not be grasped completely, it is important that 
every DBR programmer be exposed to some extent to 
all of the capabilities of the language so that he 
or she may be able to use the language to its full 
capacity if the need arises. Chapter 4, even if 
not completely understood and absorbed on the first 
reading, should be used as a reference source for 
extending the programmer's working knowledge of the 
language. 


MANUAL CONVENTIONS 


The DBR language is composed of five commands, 
INPUT, OUTPUT, FIND, SORT and FORMAT. These 
commands are composed of clauses, such as the PAGE 
HEADER clause, and statements, such as the PRINT 
statement. These statements are composed of 
language elements such as keywords, field names and 
numbers. 


For example, to print 5 blank lines on a report, 
the statement that would be used would be SKIP 5 
LINES. In this case SKIP and LINES are keywords of 
the language and 5 is a number. These are all 
language elements. Any language element or legal 
group of language elements are referred to as 
language constructs. 


Throughout the manual English words and phrases 
that are part of the DBR language, such as the 
keywords SORT, FORMAT, or FIND, will usually be 
printed in all capital letters if they are part of 
the manual's text. In programs, language 
constructs will also be printed in upper case, even 
though most programmers prefer to use lower case 
when writing programs. DBR does not care whether 
the programs are written in upper case, lower case 
or a combination of the two. The only place where 
case makes any difference is in quoted strings that 
are being used in comparisons or being printed, 
such as the following: 
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PRINT "PAYROLL REPORT - First Quarter, 1980" 


When a language construct is being described, 
sometimes the programmer has an option between one 
Or more phrases. For example, in the FIND command 
the programmer may specify that every record in the 
data base is to appear in the report, or only some 
subset of the data base is to be used. If every 
record is to appear, the following construct would 
be used: 


FIND EVERY RECORD END 


Perhaps the data base contains information on 
baseball players, their names, numbers, and 
positions. If the report was to contain only 
infielders, then the following expression would be 
used: 


FIND POSITION = "FIRST BASE" 
POSTION = "THIRD BASE" 
POseriON = "SECOND BASE" 
POs PRION = "SHORT STOP" 


END 


The phrase in this FIND command is called a boolean 
expression. © Boolean expressions will be defined 
more thoroughly later, but they are mentioned here 
because they represent something that is 
conveniently described symbolically in the manual. 
When symbolic phrases are used in the place of 
potentially complicated constructs in the manual, 
they will be printed in lower case. This lower 
case printing means that they should not be taken 
literally; the words represent a construct that is 
described in detail elsewhere. 


To show the choice between the EVERY RECORD phrase 
and the boolean expression, the following 
convention will be used in the manual: 


Pees 
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FIND EVERY RECORD END 
boolean expression 


The curly brackets denote an option in the grammar 
of the command. One of the options must be taken. 


In the SORT command the programmer may specify that 
the sorting is to take place on a disk other than 
the current disk. This construct might look like 
this: 


SORT BY POSITION ON DRIVE B END 


However, the drive need not be specified. If it is 
not, the current drive is used for the sorting. 
Then the expression below would be used. 


SORT BY POSITION END 


The manual convention to denote this optional 
constuct is as follows: 


SORT BY fieldname ON DRIVE END 


mam UAW D> 


Thus, the square bracket will be used to denote 
constructs that are completely optional. If more 
than one construct is optional, the manual 
convention will be to stack them, as are the drive 
specifiers. 


The SORT command is actually more complicated than 
shown above because the programmer can request 
sorting on a hierarchy of fields. This will be 
explained more thoroughly later, but in such an 
instance the field names involved in the sorting 
hierarchy would be listed separated by a comma, as 
in the following expression: 


SORT BY POSITION, NAME END 
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The ellipsis, "...", will be used to indicate that 
a construct may be repeated several times. Thus, 
the manual convention for this would be as follows: 


SORT BY fieldname , fieldname ... END 


In the case of the SORT command, up to five field 
names may be used. 


During the reading of this manual the user will 
come across the phrase "conditioned on" in 
reference to groups of statements within a DBR 
program. This means that a given group of 
statements is executed only when a certain 
condition has been met. For instance, code placed 
after the phrase ON EVERY RECORD in the FORMAT 
command is referred to as being "conditioned on" 
the ON EVERY RECORD clause. In other words, for 
each record read from the input file this group of 
instructions is to be executed. The set of code to 
be executed in this case is "conditioned on" the 
presence of another input record. 


Often the phrase "CNTRL-P convention" is mentioned 
in this manual. The CNTRL-P convention is a CDOS 
procedure created to allow output going to the 
terminal to go to a printer as well. To implement 
the feature the user enters the letter "p" while at 
the same time holding down the CNTRL key. The 
CNTRL-P convention acts as an on/off switch for the 
printer, therefore the user must reenter the 
CNTRL-P combination in order to stop the output 
from going to the printer. When used with a DBR 
program, the CNTRL-P convention is entered once 
just before entering the DBRGO command line and 
just once after the DBR report has completed 
printing. 


Note that if the REPORT TO LINE PRINTER option of 
the OUTPUT command command is used the CNTRL-P 
convention need not be used. This way only the 
report is sent to the printer. If the CNTRL-P 
convention is used then other information is 
printed during the report phase and this will be 
sent to the printer as well. However, a form feed 
will be sent to the printer just before and just 
after the printing of the report. 
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Chapter 2 


USES FOR DBR 


The examples in Chapter 7 of this manual show the 
broad scope of reports that can be written with 
DBR, such as personnel review reports, payroll 
check printing, quarterly analysis reports, 
inventory control, real estate data base 
interrogation, mailing list applications, and 
scientific laboratory data analysis. 


Even though DBR is purposely restricted to report 
writing only, within the realm of report writing 
its range of usefulness is immense. DBR can be 
used to print almost any report that is desired 
from data that is stored in Cromemco's DBMS data 
files. 


There are a few reports that can be conceived that 
DBR cannot be used to produce. Sometimes the DBR 
programmer discovers that the data in the data base 
should have been organized in a slightly different 
way for DBR to be used conveniently, however, DBR 
has constructs to minimize the requirements for 
data base reorganization. 


If reorganization is needed, DBMS can be used to 
create the desired data base, and then DBR can be 
used to load the new data base's data file from the 
old data base's data file. For more information on 
this situation, see Chapter 5, Advanced Features 
and Issues. 


This section will review some of the basic concepts 
of storing information in a data base, discuss how 
reports are usually formatted in data processing 
environments, and show how DBR can be used to print 
a report with many different formatting variations. 


DATA BASES 


DBR programmers who are uSing the language to 
produce report programs to read from DBMS data 


files should be familiar with DBMS and how to use 


it. However, the basics will be reviewed again 
here. 


DBMS stands for Data Base Management System. 
Cromemco's DBMS product allows the user to create a 
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data file and give names to the fields in this 
file. The concept of a field relates back to the 
days of the "IBM card." On such cards, the first 
10 column positions might be reserved for a 
person's first name, the next 10 for the last name, 
the next 20 for the address, and so on. Each of 
these groups of character positions is a field. 
Fields always have a fixed length. 


The "IBM card" had a total of 80 column positions, 
so the total of the field's sizes could not exceed 
80. These 80 character units were known as 
records. Usually a record was maintained for each 
entity being tracked by the data base, whether they 
were people, books, paychecks, or whatever. A box 
of cards that was being processed by the computer 
was usually called a "file." 


Data processing has come a long way since the days 
of the punched card, but the notion of fields, 
records and files is still useful. Cromemco 
machines, like most modern computers, use disk 
drives for mass storage as opposed to these punched 
cards. Disk drives are a more suitable media in 
that they do not require that the records all be 80 
characters in length. 


DBMS allows the user to create a data base that is 
composed of one data file. The user describes this 
data base to the system by telling it the names and 
sizes of all of the fields. DBMS adds up the total 
length of the fields and creates a data file that 
has records of that length. 


Records can be added to the data base by 
interacting with the DBMS program. Records may 
also be changed or deleted altogether. The records 
can be examined one by one in any sorted order 
desired. 


To implement the sorting feature, the user has to 
ask the system to create a sort file based on the 
field or fields of interest. For example, in a 
baseball data base that tracks player's names, 
positions, and numbers, the user may wish to view 
the data records sequentially in alphabetical order 
by the players name. 


However, the user may wish to see all of the 
players grouped by their position, in alphabetical 
order by position. Thus, all the catchers would be 
listed first. If the user wanted all of the 
players in order alphabetized by name when they are 
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grouped by their position, then a hierarchical sort 
must be specified. In this case the records would 
be sorted first by position, and then by name 
within position. 


DBMS also allows the user to view a subset of the 
records in the data base using function 6, "To doa 
data base inquiry." With this function a sorted 
ordering, the field numbers of the fields of 
interest, and rejection criteria can be specified. 
The rejection criteria tell the system which 
records not to print in the listing, based upon the 
content of the records. For example, "don't print 
any records where field 2 is less than 10000." 
This might: have the meaning "print all of the 
records for people who make over $10,000. 


The rejection criteria scheme of this function is 
somewhat restrictive, and the user has very little 
control over the formatting of the listing. When 
the user's needs cannot be satisfied with this 
function, DBR should be used. 


When DBMS is used, it creates several files for 
each data base. When the data base is created, and 
the user gives each of the fields a name, length, 
and type specifier, a "master file" is created by 
the system to hold this information for subsequent 
sessions. When the data base is created a data 
file is also created to store the actual data 
records themselves. When a sort is created, DBMS 
creates a sort file to maintain the sorted 
ordering. 


DBR only uses the data file from this group of 
files maintained by the DBMS. When DBR does 
sorting, it creates its own sort files (discussed 
further in Section 4.5). The names given to the 
fields through DBMS are often not appropriate for 
use as identifiers in programming languages, so the 
DBR programmer must give the fields new names for 
use in the particular DBR program. This, however, 
has some advantages in that it leads to greater 
power and flexibility in handling the data 
(discussed further in Section 4.2). 


The DBMS data file is very similiar to a file that 
might be created by a BASIC programmer for use with 
the BASIC language. In fact, if the records of the 
BASIC file are all of the same length, and have all 
of the fields in the same position within the 
record, DBR can be used to write reports from these 
files as well. There is syntax in the DBR language 


ll 
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to let the compiler know whether the input file is 
a DBMS data file or a regular BASIC data file 
(discussed further in Section 5.3). 


In summary, DBMS maintains a system of files to 
support a data file containing records that are all 
the same length. These records contain fields of 
fixed length. DBR can be used to read the 
information in the data file of this system of 
files, and print reports. If BASIC programs 
maintain files that have these same properties, 
then DBR can be used to produce reports from them 
as well. 


REPORTS 


DBR is a special purpose language which is designed 
to write reports. The scope of DBR had to be 
limited in some ways so that the resulting product 
remained easy to use. For example, DBR could have 
been designed with very high level constructs, such 
as would be desirable in a mailing label generation 
package. It would have been possible to include a 
construct, such as PRINT AS ADDRESS, that would 
format data to be included in an address 
automatically. Instead, lower level constructs 
such as PRINT and PRINT WITHOUT TRAILING BLANKS 
were developed. 


The DBR programmer can produce mailing label 
printing programs, such as the one in Section 6.5 
using these primitives. PRINT and PRINT WITHOUT 
TRAILING BLANKS are more general purpose and 
flexible than a construct such as PRINT AS MAILING 
ADDRESS. However, they are not as “powerful". 


The constructs of the DBR language were collected 
to perform the tasks that were most commonly 
required when developing programs to print reports. 
For example, the PRINT USING construct that was 
borrowed from Cromemco BASIC was known to be used 
to a great extent to format numeric quantities in 
reports. 


Most reports have something printed on the top of 
each page identifying the report. This is called a 
report header. Many reports also have a trailer 
printed at the bottom of each page. Also, most 
reports have a top, bottom, and left margin. 


DBR contains constructs to print report headers and 
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trailers automatically. The programmer, when 
writing the program, need not consider how the 
program will know when to print the headers and 
trailers. DBR keeps track of how many lines have 
been printed on the page, and how many lines are 
required by the -trailer. The margins are also 
adjustable through direct statements of such intent 
in the DBR syntax. 


In many cases the programmer wishes to have a 
different header printed on the first page of the 
report than on the other pages. DBR provides a 
clause for this purpose. 


DBR also keeps track of the page number of the 


report so that it may be printed out any time, in 
the header or the trailer. 


The body of the report is usually printed between 
the header and trailer on each page. This body 
usually has something printed for each record that 
was selected for printing. Often the records in 
the body of the report are to be sorted by one or 
more of the fields. This may be a hierarchical 
sort, as was discussed previously. DBR contains 
the sort command to allow the programmer to 
indicate this desire. Once again, this sorting is 
completely independent of the sorts that may have 
been specified with the DBMS. 


As the records are being printed in the body of the 
report, it is often desirable to print subtotals, 
averages, counts or percentages. Subtotaling 
implies that the data records are grouped in some 
way, and this implies that they have been sorted by 
the field- involved in the grouping. For example, 
if the baseball data base discussed earlier was 
sorted by position and player, then each time the 
position field changed, some subtotals, counts, 
averages, or percentages could be printed 
(discussed and demonstrated further in Section 
Zea) % ; 
Totals, averages, counts and percentages are things 
that very frequently appear in reports, so DBR 
contains constructs to make printing them easy. 
Such calculations are called "aggregates" because 
they summarize a large amount of information in one 
aggregate statistic. Since it is often desirable 
to base these aggregate evaluations on subgroups of 
the data, DBR allows this through its GROUP 
aggregate feature. Aggregates that are based upon 
all of the data records that were selected for the 
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report are called "global aggregates." 


In summary, there are DBR constructs to correspond 
to as many of the things that are commonly done 
with reports as possible. The goal of the design 
effort was to produce a language that could produce 
80% of the reports that a programmer would try to 
produce from a DBMS data file. This goal appears 
to have been achieved. If the programmer is 
willing to structure the data base such that it is 
in an easily reportable form, all or nearly all the 
desired reports can be written with DBR. 


DEMONSTRATION EXAMPLE — THE MEMBERS REPORT 


This section will demonstrate how DBR can be used 
to read information from a data base data file and 
print a report. It will begin with the simplest 
report format that DBR is capable of generating and 
progress to some of its more sophisticated 
formatting and arithmetic features. The MEMBERS 
data base that is delivered with the Cromemco DBMS 
will be used as the basis for the examples. 


The Simple Report 


The data base that is delivered with the Cromemco 
DBMS contains a data file named "MEMBERS.DAT". In 
this data file is information about 7 members of an 
international club or association. 


The layout for the data base is as follows: 


NAME (LAST,FIRST) A25 
ADDRESS LINE #1 A25 
ADDRESS LINE #2 A25 
CITY A25 
STATE A2 
ZIP CODE A6 
COUNTRY A25 
MEMBER NUMBER N5 


The first example is a report that formats this 
information in the simplest possible way.: The 
basic aspects of writing a DBR program will now be 
explained so this can be done. 


14 


~. 


Cromemco DBR Manual 
Uses for DBR 


DBR programs are composed of 5 commands, INPUT, 
OUTPUT, FIND, SORT, and FORMAT. The INPUT command 
is used to communicate the layout to the DBR 
compiler. This allows DBR to produce a proper 
BASIC program to read the data from the data file 
and print the report. The OUTPUT command is used 
to change the margins or redirect the report output 
to a file instead of to the terminal as is usual. 
The FIND command is used to specify what subset of 
the data base is to appear in the report. The SORT 
command allows the programmer to indicate that the 
records are to be sorted. Finally, the FORMAT 
command is used to indicate how the information 
should be formatted in the report. 


Since it is not necessary that the information be 
sorted, the.-SORT command is optional. If it is not 
used the information will appear in a fairly random 
order, which is related in some way to the order 
the data went into the data base. However, if 
records have been deleted from the data base during 
its lifetime, this historical order is not 
maintained by DBMS. As DBMS re-uses space, the 
order gets changed. 


The OUTPUT command is also not required. The 
"default" margins are 3 lines at the top of the 
page, 3 lines at the bottom of the page, and 5 
columns on the left side of the page. The default 
page length is 66 lines. Since there are 6 lines 
to an inch, this is the page length of paper that 
is 11 inches long. If. the OUTPUT command is not 
used, these default values will be used. 


All commands begin with the name of the command and 
end with the keyword END. The DBR program itself 
is ended with the keyword BYE. 


The INPUT command for a simple DBR program to print 


all of the members in the data base in the simplest 
possible format is as follows. 
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INPUT 


DATA FILE "MEMBERS. DAT" 
FILE TYPE DATA BASE 


FIELD NAME {Notice that the field names } 
TYPE ALPHABETIC {do not have to be the same } 
LENGTH 25 {as in the DBMS layout. } 


FIELD ADDRESS] 
TYPE ALPHABETIC 
LENGTH 25 


FIELD ADDRESS2 
TYPE ALPHABETIC 
LENGTH 25 


FIELD CITY 
TYPE ALPHABETIC 
LENGTH 25 


FIELD STATE 
TYPE ALPHABETIC 
LENGTH 2 


FIELD ZIP.CODE 
“TYPE ALPHABETIC 
LENGTH 6 


FIELD COUNTRY 
TYPE ALPHABETIC 
LENGTH 25 


FIELD MEMBER. NUMBER 
TYPE ALPHABETIC 
LENGTH 5 


END 


Notice that the INPUT command as coded here has 
some of the text indented. This is for easy 
reading and is recommended, but not required. DBR 
is what is known as a free format language. Extra 
blanks, tabs, and new lines are ignored. 


Also notice that comments may be put in the 
program, surrounded by curly brackets. This is 
also recommended, to help other people who may read 
your program to figure out what it is going to do 
when it is run. Comments should be used 
particularly when something unusual or not 
completely obvious has to be done in the program. 


The INPUT command above begins with the name of the 
command, INPUT. The name of the data file that 
will be read is communicated to the DBR compiler 
with the following syntax: 


DATA FILE "MEMBERS. DAT" 


The words DATA and FILE are keywords of the DBR 
Fanguage. The name of the file is surrounded with 
quotation marks. Most things that are not keywords 
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must be surrounded by quotation marks, such as 
titles that are being printed. This manual will 
thoroughly explain which items need to be 
surrounded with quotation marks and which need not 
be. The data file name is "MEMBERS.DAT". If there 
is an extension on the data file, the extension 
must be included in the quoted file name. 


As has been mentioned before, DBR has the ability 
to read from DBMS data files and from regular BASIC 
fixed length record files. Since the members 
report will draw from the data file that is part of 
a DBMS data base file system, the file type is DATA 
BASE, as the next line of the INPUT command 
indicates. 


After the two lines that give the file name and 
type, the fields that are going to be used in the 
report are described. Once again, the names given 
to the fields need not be the same names that were 
given to them when the data base was created. In 
fact, DBR field names must be formed according to 
certain rules, and many of the field names in the 
system layout for the MEMBERS data base do not 
conform to these rules. 


DBR field names may not contain blanks, but may 
contain special characters to connect words. For 
example the period may be used, as is the case in 
the ZIP.CODE field above. The field names may be 
up to 30 characters long. All of the field names 
must be different. All of the characters of the 
name will be significant in determining uniqueness. 


It is very important that all of the fields of the 
data base be accounted for in the fields in the 
INPUT command. In this example, the total record 
length of the DBMS data record is 138 characters. 
The total number of characters in all of the length 
specifiers must also be 138. 


However, the types need not be the same in the DBR 
INPUT command as in the DBMS layout. This is 
another situation where they indeed should not be 
the same. The MEMBER NUMBER in the layout was 
defined to be type N, whereas the MEMBER.NUMBER 
field in the INPUT command is defined to be of type 
ALPHABETIC instead of type NUMERIC. 


Type NUMERIC in DBR means that the field contains 
characters that should be converted to BASIC 
arithmetic constructs, so that addition, 
subtraction, multiplication or division can be done 
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with them. Since the MEMBER.NUMBER is only an 
identifier, no arithmetic will be done with it, and 
thus should be type ALPHABETIC. 


Sometimes the situation is more serious. For 
example, a DBMS user may have defined SOCIAL 
SECURITY NUMBER to be type N. Since this field 
probably has dashes in it, it should not be 
converted to an arithmetic quantity by DBR. The 
dashes would cause conversion errors when the 
report is being printed, and cause the value of the 
field to default to zero. 


The INPUT command, like all commands, is terminated 
with the keyword END. 


In DBR programs the OUTPUT command follows the 
INPUT. command. However, in this first example the 
default margins are suitable, so there will be no 
OUTPUT command in the program. 


The FIND command is next. This command allows the 
programmer to determine what data in the data base 
is to be printed in the report, using a very 
flexible boolean expression. Since this report 
requires that all of the members in the data base 
be printed, a simple form of the command can be 
used to do this. 


FIND EVERY RECORD END 


If the data were to be sorted, the SORT command 
would be next. However, since this is unimportant 
in this report, the SORT command will be left out. 


The FORMAT command is the last command in the 
program, and is usually the most complicated 
because there are so many formatting options made 
available by DBR. However, like the FIND command, 
there is a simple form of the FORMAT command. It 
causes the printing of all of the fields defined in 
the INPUT command for every record that was 
qualified by the FIND command. The format for 
listing the contents of these fields is very 
Similiar to the format used by the DBMS when 
listing data from the data base. The default 
FORMAT command is as follows: 


FORMAT EVERY ‘FIELD END 
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The entire program, terminated with the keyword 


BYE, is offered below. 


INPUT 


DATA FILE “MEMBERS. DAT" 
FILE TYPE DATA BASE 


FIELD NAME {Notice that the field names do not } 
TYPE ALPHABETIC {have to be the same as in the layout.} 
LENGTH 25 


FIELD ADDRESS 
TYPE ALPHABETIC 
LENGTH 25 


FIELD ADDRESS2 
TYPE ALPHABETIC 
LENGTH 25 


FIELD CITY 
TYPE ALPHABETIC 
LENGTH 25 
FIELD STATE 
TYPE ALPHABETIC 
LENGTH 2 
FIELD ZIP.CODE 
TYPE ALPHABETIC 
LENGTH 6 
FIELD COUNTRY 
TYPE ALPHABETIC 
LENGTH 25 
PIELD MEMBER, NUMBER 
TYPE ALPHABETIC 
LENGTH 5 
END 
FIND EVERY RECORD END 
FORMAT EVERY FIELD END 


BYE 


When this program is compiled, prepped, and 
the following output results. 
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Data File Record Number 1 


name JONES, BILL 
addressl 123 FIRST ST 
address2 

city MORAGA 
state CA 

zip.code 95234 
country 

member. number 123 


Data File Record Number 2 


name JOHNSON, BEVERLY 
addressl 1243 SMITH PLACE 
address2 

city ROCHESTER 

state NY 

zip.code 00142 

country 

member. number 243 


Data File Record Number 3 


name PARKER, FRED 
addressl 1984 STATE STREET 
address2 SUITE 478 A. 

city DALLAS 

state TX 

zip.code 72314 

country 

member. number 89280 


Data File Record Number 4 


name WILSON, GERALD 
addressl 89 COMMONWEALTH AVE. 
address2 

city BOSTON 

state MA 

zip. code 08746 

country _ 

member. number 89323 


Data File Record Number 5 


name KORNELL, HANS 
addressl 19 LIBERSTRASSE 
address2 

city VIENNA 

state 

zip.code 

country AUSTRIA 
member.number 435 


Data File Record Number 6 


name PROCTOR, SIMON 
addressl 4250 WILSON AVE 
address2 SUITE 456 

city LONDON 

state 

zip.code 

country ENGLAND 
member.number 67593 


Data File Record Number 7 


name JOHNSON, GORDON 
addressi 8490 FIRST STREET 
address2 BOX #A23 

city LONDON 

state 

zip.code 

country ENGLAND 

member ,.number 90467 
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The report phase introduces itself, and prints the 
name of the data file that will be searched. As it 
is searching, it will report how many records it 
has looked at, every 25 records. Since there are 
only seven records in the MEMBERS.DAT data file, 
this is not demonstrated here. 


After the data file has been searched for records 
that pass the qualifications of the FIND command, 
the report is printed. If a printer has been 
turned on by the control-p convention before 
running the report program, the report will be 
written to the printer as well as the terminal. A 
form feed character will be printed just before the 
report is printed, so the pages will be aligned as 
they were aligned before the report program was 
run. A form feed character will also be printed 
after the report is run. 


Whenever a program is being written for a new data 
base, the simple FIND and FORMAT commands used in 
this members program should be used to print the 
contents of the data base. This will verify that 
the INPUT command was properly structured. 


Also, when DBR programs are being developed, a 
sample data base with about a dozen records should 
be constructed for testing. This allows 
programming errors to be found quickly. Larger 
data bases require more time to produce a report 
which may be found to be in error because of a DBR 
programming mistake. 


Selecting the Data for the Report 


The FIND command can be modified so that only a 
subset of the data in the data file gets selected 
for use in the report. This is done through the 
use of a boolean" expression. The word boolean" 
implies that something is either true or false. 
The boolean expression in the FIND command is a 
test that is applied to every record in the data 
base. If the test succeeds, then the record is 
included in the report, if it fails, it is not. 


For. example, the following FIND command would 
include all of the members who live in Los Angeles, 
given the understanding that Los Angeles is 
abbreviated "LA"; 
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FIND CITY = "LA" END 


This is another situation where something has to be 
placed within quotation marks. Notice that the 
field CITY does not have to be, but the value to 
which it is to be compared, LA, must be. 


If the report was to contain all of the members 
that lived in either of the two largest cities in 
California, then an OR boolean operator could be 
used as follows: 


FIND CITY = "LA" OR CITY = "SF" END 


If only members from Los Angeles were of interest, 
but the programmer was worried that there might be 
another city with the abbreviation "LA", then the 
following FIND command could be used to require 
that the "LA" be the "LA" in California: 


FIND CITY = "LA" AND STATE = "CA" END 


The boolean expressions of the FIND command can get 
far more complicated than this, but this is all 
that will be discussed here. The FIND command is 
thoroughly defined in Section 4.4 of this manual. 


Fancier Output 


The formatting of the output that is accomplished 
with the EVERY FIELD form of the FORMAT command is 
not what is usually required of a production 
report. Usually the report has a title with the 
name of the report and a page number. Also, the 
fields -for each record are. usually printed across 
the page, resulting in columns forming down the 
page for each field. The columns also usually have 
titles in the page heading. 


The following DBR program will demonstrate this 
typical report format for the MEMBERS data base. 
The members NAME, CITY, and MEMBER.NUMBER will be 
printed for each member who lives in the United 
States. 
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INPUT 


DATA FILE "MEMBERS.DAT" 
FILE TYPE DATA BASE 


FIELD NAME {Notice that the field names do not } 
TYPE ALPHABETIC {have to be the same as in the layout.} 
LENGTH 25 


FIELD ADDRESS1 
TYPE ALPHABETIC 
LENGTH 25 


FIELD ADDRESS2 
TYPE ALPHABETIC 
LENGTH 25 


FIELD CITY 
TYPE ALPHABETIC 
LENGTH 25 


FIELD STATE 
TYPE ALPHABETIC 
LENGTH 2 


FIELD 2IP.CODE 
TYPE ALPHABETIC 
LENGTH 6 


FIELD COUNTRY 
TYPE ALPHABETIC 
LENGTH 25 


FIELD MEMBER. NUMBER 
TYPE ALPHABETIC 


LENGTH 5 
END 
FIND COUNTRY = "UNITED STATES" {Often the COUNTRY} 
OR {field is left } 
COUNTRY = " ; "{blank if the } 
END {country is USA. } 
FORMAT 


PAGE HEADER 


PRINT " " {The blanks are for alignment.} 
PRINT "UNITED STATES MEMBERS LIST" 
SKIP 3 LINES 


PRINT " i 

PRINT "NAME ne 
PRINT "CITY 4 
PRINT "MEMBER NUMBER . 


SKIP 3 LINES . 
ON EVERY RECORD 


PRINT " " 

PRINT NAME {This means the field value NAME. } 
{Remember, it's 25 characters long.} 

PRINT CITY 

PRINT " ." {For centering MEMBER.NUMBER under } 
{its title. } 


PRINT MEMBER. NUMBER 
SKIP 2 LINES 


END 


BYE 
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When this report is run the output is as follows: 


UNITED STATES MEMBERS LIST 


NAME CIty MEMBER NUMBER 
JONES, BILL MORAGA _ 123 
JOHNSON, BEVERLY ROCHESTER 243 
PARKER, FRED DALLAS 89280 
WILSON, GERALD BOSTON 89323 


The PRINT statements and other statements that are 
placed after the PAGE HEADER keywords in the source 
program will be executed when the page header is 
being printed in the report. Statements that 
appear after the ON EVERY RECORD phrase will be 
printed for every record in the report. 


Each clause of the FORMAT command works in this 
fashion. The name of the clause containing the 
statements determines when the statements will be 
executed. 


The printing that is conditioned under the PAGE 
HEADER clause is printed at the top of each page. 
The printing of spaces is done occasionally to line 
up the output. Often it is useful to sketch out 
where the data is desired on the report page so 
that the number of spaces that have to printed to 
achieve alignment can be easily found. Special 
line printer spacing charts are available for just 
this purpose from stationary stores that carry data 
processing forms. 


The printing that is conditioned on the ON EVERY 
RECORD clause will be printed for each record from 
the data base that is selected with the FIND 
command. The printing that occurs for each record 
is referred to as detail printing. 


Both the clauses have the SKIP N.LINES construct. 
In the page header clause, it allows for the spaces 
between the title and the first line of detail 
printing. In the EVERY RECORD clause, it allows 
the detail lines for each record to be separated. 


The printing in a clause can be several lines long. 
The number of new lines printed in the clause 
determines the length of the clause's printing. 
New lines are only printed when explicitly 
requested with the PRINT NEW LINE or the SKIP N 
LINES constructs. 
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Since no PRINT NEW LINE was used in the report 
above, only two blank lines will appear between the 
heading and the first detail lines, even though 
three lines were skipped. This is because the 
first skipped line went to "throwing the carriage" 


‘for the last header line that was printed. The 


PRINT NEW LINE statement will terminate a line, and 
position further printing at the beginning of the 
next line. The skipping of lines in the SKIP 
statement is equivalent to the execution of the 
same number of PRINT NEW LINE statements. 


Sorting the Output 


The examples thus far have left out the optional 
OUTPUT and SORT commands. This example will 
demonstrate that the use of a very simple DBR 
construct, the SORT command, will automatically 
sort the data. 


SORT BY NAME END 


If the above command were added to the DBR program 
of Section 2.3.3 just after the FIND command, the 
data in the printed report would be sorted by the 
member's name. 


Consider the case where the members in the report 
are to be sorted by country. However, within this 
sorted ordering, the members who live in the same 
country are to be sorted by their name. The 
following sort command would accomplish this 
hierarchical sort: 


SORT BY COUNTRY, NAME END 


DBR can sort the data by as- many as five 
hierarchical components. 


DBR always creates a scratch file as a work area 
that it needs while it is writing a report. The 
use of the SORT command requires that this scratch 
file be larger than it would be otherwise. 
Sometimes the data file is so large that it barely 
fits on one disk. In these circumstances, the user 
would like the data sorted on a different drive. 
If the C drive were available for this sorting, the 
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following form of the same SORT command would 
achieve this use of a different drive for the 
scratch file: 


SORT BY COUNTRY, NAME ON DRIVE C END 


When this report is run the output is as follows: 


INTERNATIONAL MEMBERS LIST 


NAME cITy MEMBER NUMBER 
JOHNSON, BEVERLY ROCHESTER 243 
JONES, BILL MORAGA 123 
PARKER, FRED DALLAS 89280 
WILSON, GERALD BOSTON 89323 
KORNELL, HANS VIENNA 435 
JOHNSON, GORDON LONDON 90467 
PROCTOR, SIMON LONDON 67593 
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The report (which generated the preceding output) 
with the SORT command added is as follows. 
- INPUT 


DATA FILE "MEMBERS. DAT" 
FILE TYPE DATA BASE 


FIELD NAME {Notice that the field names do not } 
TYPE ALPHABETIC {have to be the same as in the layout.} 
LENGTH 25 


‘FIELD ADDRESS1 
TYPE ALPHABETIC 
LENGTH 25 


FIELD ADDRESS2 
TYPE ALPHABETIC 
LENGTH 25 


FIELD CITY | 
TYPE. ALPHABETIC 
LENGTH 25 


FIELD STATE 
TYPE ALPHABETIC 
LENGTH 2 

FIELD ZIP.CODE 
TYPE ALPHABETIC 
LENGTH 6 

FIELD COUNTRY 
TYPE ALPHABETIC 
LENGTH 25 

FIELD MEMBER. NUMBER 
TYPE ALPHABETIC 
LENGTH 5 


END 


FIND EVERY RECORD END 
SORT BY COUNTRY, NAME END 2 
FORMAT 
PAGE HEADER 
PRINT " " {The blanks are for alignment.} 


PRINT "INTERNATIONAL MEMBERS LIST" 
SKIP 3 LINES 


PRINT " . 

PRINT "NAME ie 
PRINT "CITY ® 
PRINT "MEMBER NUMBER * 


SKIP 3. LINES 


ON EVERY RECORD 


PRINT " s 

PRINT NAME {This means the field value NAME. } 
{Remember, it's 25 characters long.} 

PRINT CITY 

PRINT * i {For centering MEMBER.NUMBER under } 
{its title. } 


PRINT MEMBER. NUMBER 
SKIP 2 LINES 


> BYE 
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Performing Calculations 


As was discussed earlier, some of the fields that 
have been defined as N, for NUMERIC, in the data 
base do not really contain arithmetic data. Very 
often, something which is called a number is really 
just an identifier, such as a social security 
number or a driver's license number. These data 
items are for unique identification. They are 
never added, subtracted, or subjected to any other 
calculation. Almost all serial numbers have this 
property. 


The MEMBERS data base does not have any true 
numbers. This is why the MEMBER NUMBER field was 


changed from N (NUMERIC) in the data base layout, 
to ALPHABETIC in the DBR programs. 


The DBMS stores all of the fields as characters. 
If the field is defined to be type N, then the data 
stored in that field will be right justified. If a 
data item is defined to be type A (ALPHABETIC), 
then the data stored in that field will be left 
justified. 


In DBR, true numbers can be used in arithmetic 
expressions and can be printed with the PRINT USING 
statement instead of just the PRINT statement. The 
PRINT USING statement allows the programmer to 
specify a fixed length print field for the numeric 
quantity, explicitly placing commas, decimal 
points, and other characters where ever desired 
within the number. 


For example, if a field named GROSS.SALES contained 


the value 12345.123 it could be printed with the 
following line of DBR code: 


PRINT USING ##%,#¢%, 23%, %##%.## GROSS.SALES 


The string of characters between the USING and the 
GROSS.SALES is called a format string. The 
resultant printed field will be the same length as 
the format string. In the case of the value 
12345.123, the resulting printed field would be: 


12,345.12 


Arithmetic is done in the PRINT USING expression, 
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and is allowed to be quite complicated. A simple 
example follows. 


PRINT USING ###,###, ##%, ###. ## 
2.3 * GROSS.SALES 


The result of the execution of this statement would 
bes: 


28,393.78 


There are many more formatting features of the 
PRINT USING statement that are discussed in Section 
4.7.2 of this manual. : 


If a field is not going to be printed with the 
PRINT USING statement, and thus is not going to be 
used in arithmetic computations, then it should be 
defined to be type ALPHABETIC in the DBR program. 
Other arithmetic fields that are supported by DBR 
are BASIC's INTEGER, SHORT, and LONG floating point 
numbers. These are familiar to the BASIC 
programmer,- but have no meaning to the DBMS user. 
They are discussed further in Sections 4.7.2.1 and 
563% 


If a field is type numeric, or one of the other 
arithmetic types, then the average, or total of 
that field in all of the records can be printed as 
follows: 


PRINT USING ###,#¢#,###. $# 
AVERAGE OF (GROSS.SALES) 


PRINT USING ###,#¢#, ###. ## 
TOTAL OF (GROSS. SALES) 


Notice that the AVERAGE and TOTAL aggregates above 
take the average and total of the GROSS.SALES 
field. The GROSS.SALES field is the argument of 
the aggregates. The argument of an aggregate 
indicates what the aggregate is to operate upon. 
The argument of the TOTAL aggregate indicates what 
is to be totaled.* The argument must be surrounded 
by parentheses. 


The parentheses may contain an expression as well 
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as a field name. For example, consider a data base 
that is tracking the sales of a company. Perhaps 
the records have fields PRICE, QUANTITY, and 
“DISCOUNT. The PRICE would be the unit price of the 
item that was sold, the QUANTITY would be how many 
units sold, and the DISCOUNT would be the 
percentage of the sale price that was received by 
the selling company (the rest of the selling price 
would be the buyer's quantity discount). 


The wholesale price of the sale represented by each 
record could be expressed by the following PRINT 
USING expression: 


PRINT USING ##%, ##%, #32. ## 
QUANTITY * PRICE 


Of course, this should be in the ON EVERY RECORD 
CLAUSE of the FORMAT command. The total of the 
wholesale sales represented by all of the records 
in the data base could be printed with the 
following: 


PRINT USING ##%, #83, FE. ## 
TOTAL OF (QUANTITY * PRICE) 


Since this should probably be printed at the end of 
the report, this PRINT USING statement would be in 
the ON LAST RECORD clause of the FORMAT command. 


The aggregates themselves are arithmetic quantities 
and may be used in expressions. One way to print 
the total of the retail sales represented in the 
data base would be the following: 


PRINT USING ##%,###, #22. ## 
TOTAL OF 
(DISCOUNT * QUANTITY * PRICE) 


Perhaps the-report was to print all of the sales in 
the data base, but total only the sales of the 
items that sell for more than a dollar. In 
situations such as this, the aggregates may be 
qualified with a WHERE clause. The WHERE clause 
has the same structure as the FIND command. 
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PRINT USING ###,###, ##%. ## 
TOTAL OF . 
(DISCOUNT * QUANTITY * PRICE) 
WHERE PRICE > 1.00 


In this WHERE clause, PRICE is compared to the 
value 1.00, which is not surrounded by quotation 
marks. This is because PRICE is a truly arithmetic 
field and would be defined as type NUMERIC. 


In complicated expressions, extra parentheses can 
be used to avoid confusion and resolve any 
ambiguities that might arise. This is discussed 
further in Section 4.7.2.1. 


There are two other aggregates, COUNT and PERCENT. 
When count is used without qualification with the 
WHERE clause, it prints the number of records that 
were qualified for inclusion in the report. When 
it is used with qualification, it prints the number 
of records that pass the qualification of the WHERE 
clause. Of course, records that do not pass the 
FIND command's test do not get a chance to pass the 
qualification of the WHERE clause. 


The PERCENT aggregate always works with a 
qualification. It prints the percentage of records 
that pass the qualification of its WHERE clause, as 
compared to the number of records that passed the 
test of the FIND command. An example of these two 
aggregates appears below. They are computing the 
count of the number of records tracking sales of 
items over a dollar, as well as the percentage of 
such records in the data base. This again assumes 
that the FIND command qualified all of the records. 


PRINT USING ##, ### 
COUNT WHERE PRICE > 1.00 


PRINT USING ###.# 
PERCENT WHERE PRICE > 1.00 


All of these aggregate examples are global 
aggregates. Only global aggregates may have the 
WHERE qualification. The other type of aggregate 
is the GROUP aggregate. This does not have any 
WHERE qualification, but refers to’ groups of data 
records. This will be the subject of the next 
section. 
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Grouping the Data in the Report 


When data is sorted on a field that has replicate 
values the sorting process naturally groups the 
data. The phone book has several "Smith" entries, 
and since they appear in contiguous sequence, they 
have been put in the same group. 


Since DBR contains a SORT command, it also has the 
ability to group data records. This grouping can 
be exploited in the FORMAT command through the use 
of the ON BREAK clause and the GROUP aggregates. 


Below is the output from the same DBR program that 
was used to report from the MEMBERS data base. 
However, this time it has been modified to sort the 
information by a hierarchy of COUNTRY, CITY, and 
NAME. Since this will naturally group all of the 
countries together, the opportunity is taken to 
separate them with a message indicating which 


country was just finished. 


INTERNATIONAL MEMBERS LIST 


NAME CITy ; MEMBER NUMBER 
WILSON, GERALD BOSTON 89323 
PARKER, FRED DALLAS 89280 
JONES, BILL MORAGA 123 
JOHNSON, BEVERLY ROCHESTER 243 


END OF THE GROUP 


KORNELL, HANS VIENNA 435 
END OF THE GROUP AUSTRIA 
JOHNSON , GORDON LONDON 90467 


PROCTOR, SIMON LONDON 67593 


END OF THE GROUP ENGLAND 
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The following program generated the preceding 
output. 


INPUT 


DATA FILE "MEMBERS. DAT" 
FILE TYPE DATA BASE 


FIELD NAME {Notice that the field names do not } 
' TYPE ALPHABETIC {have to be the same as in the layout.} 
LENGTH 25 


FIELD ADDRESS1 
TYPE ALPHABETIC 
LENGTH 25 


FIELD ADDRESS2 
TYPE ALPHABETIC 
LENGTH 25 


FIELD CITY 
TYPE ALPHABETIC 
LENGTH 25 


FIELD STATE 
TYPE ALPHABETIC 
LENGTH 2 

FIELD ZIP.CODE 
TYPE ALPHABETIC 
LENGTH 6 

PIELD COUNTRY 
TYPE ALPHABETIC 
LENGTH 25 

FIELD MEMBER. NUMBER 
TYPE ALPHABETIC 
LENGTH 5 


END 


FIND EVERY RECORD END 
SORT BY COUNTRY, CITY, NAME END 
FORMAT 

PAGE HEADER 


PRINT " " {The blanks are for alignment. } 
PRINT "INTERNATIONAL MEMBERS LIST" 
SKIP 3 LINES 


PRINT * . 

PRINT "NAME ® 
PRINT "CITY ° 
PRINT "MEMBER NUMBER " 


SKIP 3 LINES 


ON EVERY RECORD 


PRINT " " 

PRINT NAME {This means the field value NAME. } 
{Remember, it's 25 characters long.} 

PRINT CITY 

PRINT * is {Por centering MEMBER.NUMBER under. } 
{its title. } 


PRINT MEMBER. NUMBER 
SKIP 2 LINES 


ON BREAK OF COUNTRY 
SKIP 2 LINES 
PRINT "END OF THE GROUP " 
PRINT COUNTRY 
SKIP 2 LINES 
END 


BYE 
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The ON BREAK clause was used to trigger printing on 
what is known as a control break. A control break 
occurs when, in the process of printing out a 
series of sorted records, the field on which they 
are sorted changes. 


In this case the control break was based on the 
COUNTRY field. But notice that the information was 
sorted on 3 fields, COUNTRY, CITY, and NAME. This 
means that there is an opportunity to trigger 3 
control breaks. DBR allows a break clause for each 
of the fields involved in the SORT command. These 
break clauses must appear in the same order as the 
fields in the SORT command. In other words, the 
hierarchy must have the same order of nesting. 


The program below will -take advantage of two of the 
three control breaks available, and will use the 
COUNT and PERCENT aggregates to print information 
about the size, and the relative size of the groups 
in the data base. These aggregates are GROUP 
aggregates, and may not be qualified further with 
the WHERE clause. 
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INPUT 


DATA FILE "MEMBERS. DAT" 
FILE TYPE DATA BASE 


FIELD NAME {Notice that the field names do not } 
TYPE ALPHABETIC {have to be the same as in the layout.} 
LENGTH 25 


FIELD ADDRESS1 
TYPE ALPHABETIC 
LENGTH 25 


FIELD ADDRESS2 
TYPE ALPHABETIC 
LENGTH 25 


FIELD CITY 
TYPE ALPHABETIC 
LENGTH 25 


FIELD STATE 
TYPE ALPHABETIC 
LENGTH 2 

FIELD ZIP.CODE 
TYPE ALPHABETIC 
LENGTH 6 

FIELD COUNTRY 
TYPE ALPHABETIC 
LENGTH 25 

FIELD MEMBER, NUMBER 
TYPE ALPHABETIC 
LENGTH 5 


END 


FIND EVERY RECORD END 
SORT BY COUNTRY, CITY, NAME END 
FORMAT ; 

PAGE HEADER 


PRINT * " {The blanks are for alignment.} 
PRINT "INTERNATIONAL MEMBERS LIST" 
SKIP 3 LINES 


PRINT " ij 

PRINT “NAME : " 
PRINT "CITY * 
PRINT "MEMBER NUMBER ad 


SKIP 3 LINES 
ON EVERY RECORD 


PRINT * " 


PRINT NAME {This means the field value NAME. } 
; {Remember, it's 25 characters long.} 

PRINT CITY 
PRINT " " {For centering MEMBER.NUMBER under } 
{its title. } 


PRINT MEMBER. NUMBER 
SKIP 2 LINES 
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END 
BYE 


ON BREAK OF COUNTRY 


SKIP 2 LINES 

PRINT "There are " 

PRINT USING ##,### GROUP COUNT 
PRINT " members in " 

PRINT COUNTRY 

PRINT NEW LINE 

PRINT "This is " 

PRINT USING ###,## GROUP PERCENT 
PRINT " percent of the total" 
SKIP 2 LINES 


ON BREAK OF CITY 


SKIP 2 LINES 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"There are " 

USING ##,### GROUP COUNT 
"members in " 

CIty 

NEW LINE 

"This is " 

USING ###.## GROUP PERCENT 
" percent of the total" 


SKIP 2 LINES 
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When this report is run the output is as follows: 


INTERNATIONAL MEMBERS LIST 


NAME CITY MEMBER NUMBER 

WILSON, GERALD - BOSTON 89323_ 
There are 1 members in BOSTON 
This is 14.29 percent of the total 

PARKER, FRED DALLAS 89280 
There are 1 members in DALLAS 
This is 14.29 percent of the total 

JONES, BILL MORAGA 123 
There are 1 members in MORAGA 
This is 14.29 percent of the total 

JOHNSON, BEVERLY ROCHESTER , 243 
There are 1 members in ROCHESTER 


This is 14.29 percent of the total 


There are 4 members in 
This is 57.14 percent of the total 


KORNELL, HANS VIENNA 435 


There are 1 members in VIENNA 
This is 14.29 percent of the total 


There are 1 members in AUSTRIA 
This is 14.29 percent of the total 
JOHNSON, GORDON LONDON 90467 
PROCTOR, SIMON LONDON 67593 
There are 2 members in LONDON 


This is 28.57 percent of the total 


There are 2 members in ENGLAND 
This is 28.57 percent of the total 
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Changing the Margins and Page Size 


The only command that hasn't been covered to some 
extent in this review of the language is the OUTPUT 
command. Often a programmer is confronted with 
printing the report on stock that is not the 
standard 11 inches per page. 


Perhaps the report is to be printed on regular 
paper, but the report itself is narrow. In order 
to center the items being printed, the programmer 
would like to move the left margin toward the 
center of the page so leading blanks do not have to 
be printed with each line. 


The OUTPUT command can be used to change the page 
length from the default of 66 lines as well as 
change the left margin. This can be useful when 
printing on special forms such as payroll checks or 
purchase orders. 


The OUTPUT command can also be used to change the 
top and bottom margins, as well as direct the 
printing of the report to a file instead of the 
standard output. The programmer can use the OUTPUT 
command to request that this file either be a 
regular text file or that it be formatted in the 
same manner as a DBMS data file. These advanced 
features are covered in Sections 4.3, 5.1, and 5.2 
of this manual. 
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Chapter 3 


HOW TO WRITE AND RUN DBR PROGRAMS 


The disk on which DBR was delivered contains many 
files. MEMBERS.DBR is a file that contains a 
sample DBR program that reads the MEMBERS data file 
and prints a report. MEMBERS.DAT is the data file 
from the data base file system that is delivered as 
a sample with the Cromemco DBMS. This section will 
explain the other files on the disk and how they 
can be used to compile, prepare, and run DBR 
programs. 


CREATING THE SOURCE CODE FILE IN THE EDITOR 


DBR is a language translator that translates from 
the DBR language into Cromemco 32K Structured 
BASIC. Translators are generally either compilers 
or interpreters. DBR is a compiler. This means 
that the programmer must know how to use a text 
Editor of some kind in order to prepare the program 
that DBR is to translate. 


An Editor that is very easy to use is Cromemco's 
Screen Editor. Another Cromemco Editor, EDIT, is 
available, but this Editor predates Screen and is 
not as easy to use. DBR programmers are encouraged 
to use Screen. 


A tutorial on Screen is not within the scope of 
this manual, so the DBR programmer is referred to 
the Screen User's Manual for instruction in its 
use. 


It is recommended that the DBR programmer name the 
DBR source code files so that they have the three 
character extension, DBR. This is a convention 
that corresponds to other Cromemco compilers. It 
helps all programmers that may come into contact 
with the file to identify it immediately as a DBR 
source code file. 
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COMPILING THE PROGRAM 


The file created with the editor that contains the 
DBR program created by the user is called the 
source code file. The file containing the DBR 
compiler is named DBR.COM. This file is used to 
compile the DBR source code file. For example, to 
compile the MEMBERS report, the following command 
line would be used: 


DBR MEMBERS. DBR 


The ".DBR" extension on the name of the source file 
is optional. This initiates the compile phase. 
During the compile phase, the DBR compiler will 
read the source file and try to translate it into 
Cromemco 32K Structured BASIC. If the DBR compiler 
finds no errors in the program, it will produce a 
file containing this translation. This file will 
be named the same as the source file, but will have 
the extension ".LST". In this case, it will be 
named MEMBERS.LST. 


If the DBR compiler cannot translate the DBR 
program into BASIC, it will create an error listing 
file. This file also has the same name as the 
source code file, but has the extension ".ERR". 
The error listing file will be identical to the 
source file, except it will have messages in it . 
describing the nature of the problem the compiler 
encountered when trying to translate that DBR 
program. The error message will include an error 
number that the programmer can use to reference a 
more complete statement of the erroneous condition 
in Chapter 8 of this manual. 


The compiler stores these messages in another file 
called DBRERRMS. This file must be present for the 
compiler to print error messages in the error 
listing file... If it is not present, the compile 
phase will execute successfully, but if an error 
listing file is produced, it will contain only 
error numbers, with no error messages. 
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PREPARING THE PROGRAM 


After the compile phase has executed successfully 
and a ".LST" file has been produced, the 
preparation of this intermediate file must be done. 
The preparation phase combines the BASIC program 
fragments in the ".LST" file with a group of 
subroutines that are in a file called DBRLIB. 


The file DBRPREP.COM is a special version of BASIC 
that has been configured for the purpose of 
combining these two files. 


DBRPREP DBRLIB MEMBERS 


The line above will prepare the MEMBERS.LST file 
into a file named MEMBERS.SAV. When typing the 
DBRPREP command line the ".LST" extension on the 
intermediate file name is optional. 


RUNNING THE PROGRAM 


The MEMBERS.SAV file is a SAVED 32K Structured 
BASIC program. This program can be run with a 
different version of structured BASIC that has been 
configured especially to save memory space. This 
version of BASIC is called DBRGO. The saving of 
space in this manner allows large DBR programs to 
be written. 


The program can be run over and over again, without 
the need for recompilation. The program is run and 
the report produced with the following command: 


DBRGO MEMBERS. SAV 


In this case the ".SAV" extension is required. The 
file DBROVRLA.SAV is part of the DBRLIB system that 
is only needed if a fatal preparation phase or 
report phase error occurs. It should be on the 
disk during the preparation and report phase. 


When the report is running, whether it is in the 
qualification half or the printing half of the 
report phase, it may be interrupted by striking the 
ESCape key. This provides an opportunity to 
terminate the report phase by responding 'y' to the 
following prompt: 
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WOULD YOU LIKE TO ABORT THE PROGRAM? 
TYPE Y OR N, FOLLOWED BY A RETURN. 


> 
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Chapter 4 


COMPLETE DEFINITION OF THE DBR LANGUAGE 


Advanced DBR programmers are encouraged to read 
this chapter at least once, so that they will be 
exposed to all of the features of the language. 


Chapter 10 contains a definition of the language 
that is even more terse, but is useful for advanced 
programmers who are familiar with the concepts 
involved in precise grammatical descriptions. 


SYNTAX AND GRAMMAR RULES FOR DBR SOURCE FILES 


In all computer programming languages there are 
rules that must be followed by the programmer when 
writing the source code file so that the compiler 
can understand the intent of the programmer and 
successfully translate the program. For example, 
numbers often have a precise structure. "-3.14" is 
a legal DBR number, but "3.14-" and "3.14D" are 
not. 


Section 4.1 will give all of the rules for 


structuring the elements of DBR programs, and the 
program file itself. 


A Free Format Language 


As has been mentioned, DBR is a free format 


language. Many languages require that certain 
linguistic constructs be placed in particular 
columns. This is usually due to the languages 


origin in the era of punched cards. FORTRAN, 
COBOL, and almost all assembler languages -have this 
sense of coding fields. The language RPG is 
completely defined in terms of coding fields. 
Every construct has a different place it must be on 
the card, or text editor line. 


DBR is more akin to ALGOL or Pascal in the sense 
that any of the constructs may be placed anywhere 
on the page. This is true except for the keyword 
BYE, which must be on the last line of the file, 
and must be the only thing on the line. 


Also, whether upper or lower case is used makes no 
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difference to DBR except in quoted strings. The 
DBR programmer may write programs in all upper 
case, or all lower case, subject only to his or her 
taste. If upper and lower case are combined in 
quoted strings that are printed, they will be 
printed in upper and lower case. If upper and 
lower case are used in comparisons in the FIND 
command or WHERE qualifications, they will be 
significant in the comparison. In other words, if 
the data base contains all upper case data, the 
following expression will not qualify any records 
for printing in the report: 


FIND NAME = "smith" END 


Comments 


The need to document tricky programs has already 
been discussed, and the use of the curly brackets 
to contain such comments has been demonstrated. 
Every comment that is opened with the left curly 
bracket must be closed with a corresponding right 
curly bracket. There may not be a comment within 
another comment. 


Comments may span many lines, but the programmer 
should be careful not to inadvertently have program 
fragments in a comment. All such fragments will be 
ignored, as are the contents of the comment itself. 


Subscripting 


Subscripting has not yet been mentioned, but it is 
a very important part of the DBR language. Many 
identifiers and serial numbers that appear as data 
items in data bases really have multiple parts. 
For example, Cromemco model numbers for software 
products include an indication for small or large- 
floppy disk. The Cromemco 280 MACRO ASSEMBLER 
product is either FDA-L or FDA-S, the L and § 
indicating large or small. 


If a data base had a PART.NUMBER field, and a 
programmer wished to select all of the records 


‘pertaining to large floppy disk software products 


it would be impossible to specify this without the 
ability to subscript the field. The following FIND 
command would perform the desired qualification: 
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FIND PART.NUMBER[5,5] = "L" END 


In this case, the PART.NUMBER field was five 
characters long. The subfield of interest began in 
the fifth character of the field and ended in that 
same fifth character. 


Subscripting can be used where ever ALPHABETIC 
fields can be used. Obviously, selected portions 
of. an ALPHABETIC field can be printed. If the 
field is not subscripted, the printed field will 
take up the same number of characters as the field 
was defined to be in the INPUT command. (Unless 
the PRINT WITHOUT TRAILING BLANKS statement is 
used.) 


Also, sorts can be based upon subscripted portions 
of a field. If a subscripted field is used in the 
SORT clause, a BREAK clause can also be conditioned 
on that same subscripted portion. 


In the case of the Cromemco software part number, a 
hierarchical sort can be requested on two 
components of the same field. The large and small 
disks could be separated into two different groups 
by sorting on the fifth character. The members of 
those two groups could be sorted in their natural 
order. The SORT command to achieve this follows: 


SORT BY PART.NUMBER[5,5], PART.NUMBER END 


Comparisons between fields of type ALPHABETIC and 
quoted strings, such as are found in the FIND 
command and the WHERE clause of aggregates, involve 
an issue that is related to subscripting. When 
fields are defined in the INPUT command, they are 
given a certain length. If this field is compared 
to a quoted string that is not as long as the field 
is defined to be, the quoted string is blank padded 
to the right until it is equal in length. 


If a subscripted ALPHABETIC field is compared to a 
quoted string that is not as long as the segment 
being subscripted, then once again the quoted 
string is blank padded, so that the comparison will 
make sense. 


However, if a comparison between an ALPHABETIC 
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field and a string that is too long occurs, it is 
an error and the DBR compiler will report it as 
such during the compile phase. This is also true 
in the case of a subscripted field segment being 
shorter than a quoted string to which it is being 
compared. 


Numbers 


Numbers are used for several different reasons in 
DBR programs. They may be involved in calculations 
in PRINT USING statements, or they may be used to 


indicate the length of a field, the number of lines 


to skip, or a specifically desired subscripting of 
an ALPHABETIC field. 


Numbers that are used in calculations may be either 
integers or real numbers. That is to say, they may 
be formed without a decimal portion or with a 
decimal portion. The use of real numbers is 
restricted to certain situations. For instance, it 
is not possible to skip two and a half lines or to 
define a field to be a fifth of a character long. 
Therefore, if -real numbers are used where integer 
numbers are expected, the decimal portion will be 
ignored. 


Numbers may be preceded by a plus sign, or a minus 
sign, but not both, and not more than one of either 
one of them. Positive numbers need not be preceded 
by the positive sign. 


Since real numbers are allowed in calculations, the 
decimal point is allowed in numerical constructs. 
However, dollar signs and commas are not. (This 
has nothing to do with what is allowed in the 
format string that is used when arithmetic fields 
or constructs are printed, this section is only 
defining the rules by which numerical constants are 
built in the DBR source programs.) 


Real numbers may also employ exponential notation. 
For example, the number 123,000,000,000,000 might 
be more conveniently expressed as 123e12, which 
means one hundred and twenty three times ten to the 
twelfth power. If exponential notation is used, 
the expression must appear without any imbedded 
blanks. Both the base number and the power of ten 
may have one optional plus or minus sign. The base 
number may also have a decimal portion. 
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Numbers may have up to 14 significant digits, and 
have an exponent between -37 and +37. 


Field Names 


The field names that are used in the INPUT command 
follow stricter rules than the field names of the 
DBMS data base layout. The name must begin with an 
alphabetic character, a through z, or A through Z. 
Case is ignored in comparisons. Therefore, the 
identifiers SALARY and salary are identical. 


The field name may contain any alphabetic or 
numeric character. It may also contain the special 
characters period (.), underline (_), and dollar 
sign (5). 


The identifier may be up to 30 characters long. 
All of the characters carry significance in the DBR 
compiler. 


THE INPUT COMMAND 


The INPUT command is composed of the keyword INPUT, 
a data file name specification, a data file type 
specification, and specifications for each of the 
fields involved. Up to 60 fields may be defined. 
These field specifications are composed of the 
field name, type, and eng ene , 


The data file name specification is of dhe form: 
DATA FILE "filename" 


where DATA and FILE are DBR keywords and the file's 
name is enclosed in quotation marks. The data file 
type specification is of the form: 


FILE TYPE filetype 


where FILE and TYPE are DBR keywords and filetype 
is either the keyword sequence DATA BASE, or the 
keyword REGULAR. If the data file that is going to 
be read is the data file from a DBMS data base file 
system, then the file type is DATA BASE, If the 
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data file is constructed so that it has the same 
type of header record as is found in the DBMS data 
files, and the deleted records are handled in the 
same fashion as those in DBMS (see Section 5.4), 
the type is also DATA BASE. 


If the data is to be read from a file that is 
simply a BASIC fixed length record file, the type 
is REGULAR, If the file type is REGULAR, and the 
record length is less than 128 bytes (characters), 
there is a possibility of reading phantom records 
at the end of the file. To avoid this, data base 
compatible file formats, as discussed in Section 
5.4, should be used. 


Each field description is composed of a field name 
specification, type specification, and, if the 
field is of type ALPHABETIC or NUMERIC, a length 
specification. The name is of the form: 


FIELD NAME fieldname 


where FIELD and NAME are keywords and fieldname is 
an unquoted string of characters corresponding to 
the rules for field names discussed above. The 
type specification is of the form: 


FIELD TYPE typespec 


where FIELD and TYPE are keywords, and a typespec 
is one of the keywords ALPHABETIC, NUMERIC, 
INTEGER, SHORT, or LONG. 


Since the DBMS only has types A (ALPHABETIC) and N 
(NUMERIC), the types INTEGER, SHORT, and LONG 
should only be used if the data file is of type 
REGULAR. Types INTEGER, SHORT and LONG indicate to 
DBR that these fields are the two-byte integer, the 
four-byte short floating point, or the eight-byte 
long floating point. data types that are used in 
BASIC programs. If the field is declared type 
INTEGER, SHORT or LONG, the length is assumed by 
DBR to be two, four, and eight bytes. 


Types NUMERIC and ALPHABETIC indicate that the data 
field contains characters (as opposed to the 
formatted binary or BCD contained in the INTEGER, 
SHORT, or LONG types). Fields of type NUMERIC will 
be converted to the same internal format as fields 
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of type LONG during the execution of the report 
program. 


It is imperative that all of the byte positions in 
the data record be accounted for in the INPUT 
command. If several fields are not to be used, a 
field name or field names must be defined to occupy 
their space in the record. If several unused 
fields are adjacent, one large dummy field can be 
invented to occupy their collective space. Dummy 
fields should always be declared type ALPHABETIC, 
so that the DBR report phase will not try to do any 
conversion with the data in them. When declaring 
dummy fields, remember that all of the fields 
defined must have unique names. 


The INPUT command is terminated, as are all 
commands, with the keyword END. 


THE OUTPUT COMMAND 


The keyword OUTPUT begins the optional OUTPUT 
command, and the keyword END terminates it. 
Between these two keywords, several constructs are 
allowed. Any or all of them may be used in any 
combination and any order: 


FILE "filename" 
FILE TYPE typespec 


LEFT MARGIN n 

PAGE LENGTH n 

TOP MARGIN n 

BOTTOM MARGIN n . 
REPORT TO LINE PRINTER 


Here the file specification is used if the report 
is to be written to a file. If it is not used, the 
report will be written to the terminal, and can be 
sent to the printer by the use of the CNTRL-P, as 
per the CDOS operating system convention. If the 
file specifier is not used, the DBR report phase 
will print a form feed character to the output just 
before and after printing the report itself. As 
previously discussed, before the report is actually 
printed there-.is some other information printed 
about the progress of the qualification pass of the 
report phase. 
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If an output file is specified, the full 
specification is required, which includes the file 
type. The output can be written to the disk as a 
REGULAR text file or it can be written in a format 
that uses the conventions for DBMS data files. 
This is a feature that was incorporated into DBR so 
that DBMS users could use DBR programs to add and 
delete data fields from the DBMS data files. This 
is covered more thoroughly in Section 5.2 of this 
manual. 


If the output is to go to a regular CDOS file, then 
the type specification is FILE TYPE REGULAR. If it 
is to go to a DBMS file then the phrase FILE TYPE 
DATA BASE RECORD LENGTH N should be used. N should 
be the length of the new DBMS record. 


If the output is sent to a file of type REGULAR, no 
form feed characters are printed. Furthermore, the 
information about the qualification phase is not 
printed to the file, only the screen. Thus, the 
report written to the file is simply the report, 
and nothing else. If the output is sent to a file 
of type regular and the printing of the terminal 
interactions is being sent to the printer through 
the CNTRL-P convention, then the information 
printed during the qualification phase will be sent 
to the printer, and the report to the file. 


If the. CNTRL-P convention is not used, the report 
can be sent to a file using the REPORT TO LINE 
PRINTER option in the OUTPUT command. If this 
option is used, only the report is sent to the 
printer. 


The other options in the OUTPUT clause alter the 
default printing margins. The default top margin 
and bottom margins are three lines each. This can 
be changed by substituting the desired number of 
margin lines for the "n," in the expressions above. 


The default left margin is five characters. In 
other words, the printing of the first character 
will be done in column six. This can be changed 
with the LEFT MARGIN option. 


Finally, the default page size is 66 lines, or the 
ll inches of standard line printer paper. This can 
also be changed. An error will occur if the length 
of the page is set to be shorter than the sum of 
the lines needed to print the headers and trailers, 
if any headers and trailers are specified in the 
FORMAT command. 
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THE FIND COMMAND - 


The FIND command is composed of the keyword FIND, a 
boolean expression -or the EVERY RECORD keyword 
sequence, and the keyword END. If the EVERY RECORD 
keyword sequence is used, the command would be: 


FIND EVERY RECORD END 


This will qualify every nondeleted record in the 
data file for inclusion in the report. 


Instead of qualifying every record the programmer 
can request an explicit subset through a boolean 
expression. The boolean expression is similiar to 
that of BASIC or other high level programming 
languages. A simple boolean expression is of the 
form: 


fieldname relop value 


where a fieldname is one of the identifiers that 
was defined in the INPUT command, a relop is a 
relational operator, and value is a. data value that 
is compatible in type with the field to which it is 
being compared. 


The relational operators that can be used are 
equal, not equal, less than, greater than, less 
than or equal, and greater than or equal. They are 
represented by the following syntax: 


VANMVAA ll 
Vv 


An example of a simple boolean expression would be: 
ANNUAL.GROSS >= 10000 
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In the example above, the field ANNUAL.GROSS must 
not be type ALPHABETIC. Fields that are ALPHABETIC 
must be compared to quoted strings. On the other 
hand, the arithmetic types must not be compared to 
quoted strings. This is what is meant by type 
compatibility. 


These simple boolean expressions can be combined 
using the boolean operators AND and OR in the DBR 
FIND command and the WHERE clauses of the FORMAT 
command. In any language that allows this type of 
compound boolean expression, a potential ambiguity 
exists. This problem and its solution will now be 
discussed. 


Assume a data base that contains information about 
companies that is to be analyzed for investment 
potential. Two of the fields are ANNUAL.GROSS and 
STATE. 


FIND 
ANNUAL.GROSS >= 1000000 
AND 
STATE = "CA" 
OR 
STATE = "NY" 
END 


This expression could be interpreted in two 
different ways. If interpreted one way, all of the 
companies from New York will be in the report, but 
only the California companies grossing over a 
million dollars will be included. Interpreted 
another way, only companies grossing over a million 
dollars from California or New York would be in the 
report... In other words, if the AND operator "binds 
more tightly," then all New York companies are in 
the report, but only. large California companies. 
If OR binds more tightly, then no companies that 
gross under a million dollars will be qualified for 
the report. 


Both these options can be represented with the 
following syntax: 
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FIND 
(ANNUAL.GROSS >= 1000000 
AND 
STATE = "CA") 
OR 
STATE = "NY" 
END 
FIND 
ANNUAL.GROSS >= 1000000 
AND . 
(STATE = "CA" 
OR 
STATE = "NY") 
END 


In DBR, as in most other languages, the default is 
to assume that AND binds more tightly. However, 
the other option can be forced by the explicit use 
of parentheses. If in doubt of the default 
meaning, use parentheses. 


As has been mentioned, subscripting can be used in 
comparisons between quoted strings and fields of 
type ALPHABETIC, Also, if comparisons involve 
entities of different length, blank padding will be 
performed internally on the quoted string if it is 
too short, however, an error will-occur if it is 
too long. 


THE SORT COMMAND 


The SORT command is of the form: 
SORT BY fieldlist drivespec END 


The fieldlist is composed of from one to five 
fields, which may be subscripted if of type 
ALPHABETIC. The fields must be separated from each 
other by a comma, but no comma is used between the 
last field and whatever comes after it. 


The drivespec is optional. It is used if the 
programmer would like to explicitly specify that a 
drive other than the current drive be used for the 
scratch file that is created during the report 
phase. It is of the following form: 


53 


Cromemco DBR Manual 
Complete Definition of the DBR Language 


ON DRIVE 


TO IMO OwW PY 


If multiple fields are used in the SORT command, 
they indicate that the sorting is to occur 
hierarchically, from left to right. 


THE FORMAT COMMAND 


The FORMAT command is composed of up to six 
clauses, as follows: 


FIRST PAGE HEADER 
PAGE HEADER 

ON EVERY RECORD 
ON BREAK OF fieldname 
ON LAST RECORD 

PAGE TRAILER 


If the PAGE HEADER clause is used but the FIRST 
PAGE HEADER clause is not used, then the headings 
conditioned by the PAGE HEADER CLAUSE will be used 
on the first page as well as the rest of the pages 
in the report. 


If BREAK clauses are used, the field that is 
controlling the break condition must also be 
involved in the SORT command. If several BREAK 
clauses are used, the fields involved must be 
nested in the same order as they are nested in the 
SORT command. 


All of the clauses are optional, but at least one 
must be used if any printing is to take place. 


Any of the clauses may contain any of the 
statements that are described in Section 4.7., with 
minor obvious exceptions. For example, the SKIP TO 
TOP OF PAGE statement may only be used in the ON 
EVERY RECORD clause and in BREAK clauses. 
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The FIRST PAGE HEADER Clause 


The printing that is conditioned on the FIRST PAGE 
HEADER clause will be printed immediately after the 
top margin of the first page is printed. It will 
not be printed on subsequent pages. 


This often requires that column headers and other 
information be placed in both the FIRST PAGE HEADER.- 
clause and the PAGE HEADER clause. 


However, report designers often would like to print 
a good deal more information on the first page then 
on subsequent pages. This clause allows this to be 
programmed without wasting space in the headers of 
the pages in the body of the report. 


The PAGE HEADER Clause 


Printing that.-is conditioned on this clause will be 
printed immediately after the top margin is printed 
on every page of the report, unless a FIRST PAGE 
HEADER clause is specified. If a FIRST PAGE HEADER 
clause is used, the printing specified in that 
clause will be used on the first page only. 


The ON EVERY RECORD Clause 


The ON EVERY RECORD clause is used to print the 
detail lines of the report. Printing conditioned 
on this clause will be triggered during each 
record's cycle during the printing half of the 
report phase. 


If the bottom margin or the top of the page trailer 
is hit before all of the printing is- completed for 
a given record, the printing will be continued on 
the next page. 
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The ON BREAK OF Clause 


Up to five break clauses may be used, but they must 
correspond to the fieldlist of the SORT command. 
As has been discussed before, the SORT command 
fieldlist implies a hierarchical sorting. If 
multiple BREAK clauses are used, they must appear 
in the same order as the fields involved in the 
SORT clause. 


The printing that is under the control of a BREAK 
clause will occur as the value in the field that is 
controlling the BREAK clause changes. When the 
printing is triggered, the field will still hold 
the value that it held before the change. In other 
words, as the printing half of the report phase 
reads the records for detail processing, it "looks 
ahead" at what the next record will be before it 
decides if a control break has occurred. 


In situations where hierarchical sorting and 
breaking occur, the field that changes least 
frequently. is called the major sort field, and the 
other fields are minor sort fields. The field that 
changes the most frequently is the most minor sort 
field. 


If a control break occurs on the major sort field, 
it is logically required that all nested sort 
fields’ encounter a control break as well. This is 
not a-function of DBR, or even of programming 
languages, it is a function of the nature of 
information. If data is sorted by the hierarchy 
country, city, and name, if the country changes the 
city has to change, and if the city changes the 
name has to change. Even if by coincidence the 
city changes but the name does not, they are 
usually not the same person, and are definitely not 
the -same person with regard to the reason the 
programmer coded the control break. 


The ON LAST RECORD Clause 


Printing conditioned in this clause will be 
triggered after the detail printing for the last 
record that was qualified by the FIND command. 
Furthermore, it acts as the most major of all 
possible control breaks, and triggers the printing 
for all of the BREAK clauses that are in the FORMAT 
command, most minor sort field first. Even if 
there is not an ON LAST RECORD clause, this minor 
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through major control break will occur for any 
BREAK clauses that are present. 


The PAGE TRAILER Clause 


Printing conditioned on this clause will be placed 
at the bottom of the page, just above the bottom 
margin. The printing half of the report phase will 
not allow printing of detail lines or break lines 
to intrude on the space reserved for the page 
trailer. The size of the space reserved depends on 
the total number of new lines and skipped lines 
that are coded in the PAGE TRAILER clause. 


STATEMENTS 


Printing of the report is conditioned on the six 
clauses of the FORMAT command. The printing is 
actually done through the statements. The PRINT 
USING statement must be used to print arithmetic 
fields, and the result of arithmetic expressions. 
The normal PRINT statement is used to print 
ALPHABETIC fields and quoted strings. There are 
special print statements for printing headings in 
extra large print and to print ALPHABETIC fields 
and subfields such that there are no trailing 
blanks. 


There are other print items in addition to fields, 
quoted strings, and the result of arithmetic 
expressions. They include the page number, record 
number, date,-time, and a new line. The record 
number and page number are numeric entities, and 
thus must be printed with the PRINT USING 
statement. The date, time, and new line are 
ALPHABETIC items, and are printed with the simple 
PRINT statement. 


Other statements are available that do not print 
anything, but rather print consecutive blank lines, 
perform a page break, or cause the output of the 
report to pause, with a subsequent prompt at the 
terminal. 


All of these statements will be described in this 
section. 
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The PRINT Statement 


Items printed with the PRINT statement must be of 
the -ALPHABETIC type. This includes ALPHABETIC 
fields, subscripted ALPHABETIC fields, quoted 
strings, and the NEW LINE construct. If several 
consecutive new lines are desired, the SKIP n LINES 
statement should be used. 


An example of printing a subscripted ALPHABETIC 
field follows: 


PRINT STATE[1,2] 


This will print the first and second characters of 
the field STATE. 


An idiosyncrasy has been intentionally added to DBR 
to aid programmers who are trying to debug reports 
that might be having trouble translating the 
character data of NUMERIC. fields into BASIC long 
floating point numbers. The PRINT statement can be 
used on NUMERIC fields, but it has a much different 
effect than if the PRINT USING statement is used. 
When NUMERIC fields are printed with the PRINT 
statement, they are printed just as they were read 
from the data base. 


In other words, during the report phase type 
NUMERIC information is read from the data base and 
converted to BASIC long floating point variables. 
If the field is printed with the PRINT USING 
statement then the value will be printed based upon 
the. converted value. If the field is printed with 
the simple PRINT statement then the actual 
characters read from the data base before the 
conversion will be printed. The length of this 
print field. will be the defined length of the 
NUMERIC field from the INPUT command. 
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The PRINT USING Statement 


The PRINT USING statement allows the programmer to 
print arithmetic fields, aggregates, constants, or 
any combination in arbitrarily complex arithmetic 
expressions. The programmer specifies the format 
that is to be used to print the numeric quantity 
through a format string, as per the following form: 


PRINT USING $$$,S$$S,S$S.## 
TOTAL OF (QUANTITY * PRICE) 


The format string in the PRINT USING expression is 
identical to the formatting string in 32K 
Structured BASIC. The basics of the rules for 
constructing these strings is offered below. 
Further explanation can be had by consulting the 
Cromemco 32K Structured BASIC manual (part number 
023-0080), regarding its PRINT USING statement and 
format string. 


The format string above indicates that the result 
of the aggregate is to be printed with a floating 
dollar sign, two commas, if needed, and two places 
to the right of the decimal point. The space taken 
up on the page will be exactly 14 column positions. 


The use of more than-one dollar sign indicates that 
the dollar sign should float so that it is printed 
in the rightmost position held by a dollar sign in 
the format string. A single dollar sign would 
indicate that the dollar sign is fixed in the first 
of the 14 character positions. 


If the aggregate evaluated to $145,000.00, the 
above format string would cause this value to be 
printed as: 


$145,000.00 


whereas the string S##,###,###.## would be printed 


ass 


$ 145,000.00 


The commas will only be printed if the number is of 
such a size that there are digits to the left and 
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right of where the comma is to appear in the 14 
characters. The decimal point will always appear. 


The use of the pound sign as the formatting 
character in the string indicates that the string 
should be filled with blanks in unfilled positions 
to the left of the decimal point, and zeros to the 
right of the decimal point. The ampersand (&) 
indicates leading zeros, and the asterisk (*) 
indicates leading asterisks (useful for writing 
dollar amounts on checks). 


Fixed and floating plus and minus signs can be used 
also. If the value being printed is negative, and 
a fixed or floating minus sign is not used, the 
value will not contain the negative sign. 


Floating negative and positive signs may be mixed 
with the dollar sign, however, only one may float. 
The value $145,000.00 could be printed with the 
following format string: 


++SH,t##, FEE. HF 
and would be printed as: 
+$ 145,000.00 


The programmer can request that the value be 
printed in exponential notation by ending the 
format string with four exclamation marks. The 
value $145,000.00 could be printed with the format 
string: 


HELL U! 
to produce the print field: 
145E+03 


Again, the length of the printed field is exactly 
the length of the format string. In the case of 
format strings using floating pluses, minuses, or 
dollar signs, there may be blanks to the left of 
the first character printed to allow the total 
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number of spaces taken up by the number to be equal 
to the length of the format string. 


If the number is larger than can be accommodated by 
the number of spaces used in the format string, all 
asterisks will be printed to warn the reader of the 
report that a numeric printing overflow has 
occurred. 


Arithmetic Expressions 


The PRINT USING statement prints the value of 
arithmetic expressions. These expressions can be 
simply an arithmetic field, declared type NUMERIC, 
INTEGER, SHORT, or LONG. The expression can also 
be a combination of fields or constants connected 
by arithmetic operators, as in the following: 


PRINT USING ##,###.## 
-7 * MONTHLY.SALARY * 12 


The arithmetic operations available are addition, 
subtraction, multiplication, division, and 
exponentiation. These operations are specified 
with the following syntax: 


addition .- 
subtraction 
multiplication 
division 

or ** exponentiation 


er 2 


The aggregates and group aggregates, discussed more 
thoroughly in sections 4.7.2.2 and 4.7.2.3, can 
also be involved in arithmetic expressions. 


Complex numeric expressions, much like the boolean 
expressions discussed in connection with the FIND 


command, have an inherent potential ambiguity. For 
example, the expression: 


2+4%* 5 
could be evaluated such that multiplication binds 


more tightly than addition. In other words, the 
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expression could be evaluated as if it were grouped 
as follows: 


2+ (4 * 5) 


This, of course, evaluates to 22. However, the 
same expression could be evaluated with. addition 
receiving higher precedence than multiplication. 
In this case the expression would be grouped as: 


(2 + 4) * 5 


and would evaluate to 30. 


This type of ambiguity is resolved the same way 
that the boolean expression ambiguity was resolved, 
* by convention. DBR will perform multiplication and 
division -before addition and subtraction. In other 
words, multiplication and division are given higher 
precedence than addition or subtraction. In the 
absence of explicitly programmed parenthesis, the ; 
grouping: : 


2+ (4 * 5) 


will be assumed to be the desired grouping. If 
this is not what is desired, parentheses may be 
used to change the order in which the operations 
are-.- performed. Extra parentheses will never be 
flagged as an error, as long as every left 
parenthesis is matched with a balancing right 
parenthesis. 


Another possible ambiguity occurs with expressions 
of the form: 


4-3+1 
If this is grouped as: 
4- (3 +1) i 


it would evaluate to zero, whereas if it is grouped 
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ass 
(4 - 3) +1 


it would evaluate as 2. 


In this situation, both addition and subtraction 
have the same precedence,- so, in the absence of 
parentheses, the ambiguity cannot be resolved by 
the compiler on the basis of precedence alone. In 
the case of operators that have the same 
precedence, they will be grouped from left to 
right. In the situation above, the resulting 
grouping will default to: 


(4 - 3) +1 


Again, explicit use of parentheses is the best way 
to avoid problems in complex numeric expressions. 


Exponentiation has the highest precedence of all. 
In other words, an expression containing the 
exponential operator will be evaluated with the 
performance of the exponentiation REESES any other 
operation. 


In summary, exponentiation has the highest 
precedence, then multiplication and division, and 
then addition and subtraction. If ambiguities 
arise between operators of the same precedence, the 
expression will associate from left to right. 


The Aggregates COUNT, PERCENT, TOTAL, and AVERAGE 


The four aggregates may be used as global 
aggregates or group aggregates. A simple global 
aggregate that would print the number of records 
that were qualified by the FIND command would be: 


PRINT USING ### COUNT 


If the PRINT USING statement were in a BREAK 
clause, then the keyword GROUP could be used in 

front of. the aggregate, to designate that the scope 
of calculation is only the current group of values 


63 


Cromemco DBR Manual 
Complete Definition of the DBR Language 


in the field-that is controlling the BREAK clause. 
Group aggregates will be discussed further in the 
next section. 


The global aggregates operate on all of the records 
that are qualified by the FIND command. However, a 
subset of these records can be specified with a 
WHERE clause appendage. This qualification is in 
addition to the FIND command's test condition. 


PRINT USING ### 
COUNT WHERE SALARY > 10000 


This example would print the number of employees 
who make greater than $10,000 a year. The 
structure of the boolean expression in the WHERE 
clause is the same as the structure of the boolean 
expression in the FIND command. 


The PERCENT aggregate is very similiar to the COUNT 
aggregate. Consider a report with the following 
FIND command: 


FIND JOB.DESCRIPTION = "PROGRAMMER" END 
If a FORMAT clause contained the statement: 


PRINT USING ###.# 
PERCENT WHERE SALARY > 10000 


then the percentage of programmers who made in 
excess of $10,000 a year would be printed. 


The TOTAL and AVERAGE aggregates are a little 
different in that they have an argument. They take 
a form that is typified by the following example: 


PRINT USING ##, ### 
AVERAGE OF (SALARY) 


In this case the argument is the field SALARY. 
Notice that the argument must be surrounded by 
parentheses. This requirement is independent of 
the precedence and associativity rules that were 
discussed earlier. 
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The argument may also be a more complicated 
expression, such as: 


PRINT USING ##, ###, ### 
TOTAL OF (QUANTITY * PRICE) 


The expression may be any legal numerical 
expression with one unlikely exception. The 
argument of an aggregate may not contain another 
aggregate. 


The TOTAL and AVERAGE aggregates may be qualified 
with WHERE clauses the same as the COUNT and 
PERCENT aggregates. The following is an example: 


PRINT USING ##, ### 
TOTAL OF (QUANTITY * PRICE) 
WHERE SALESPERSON = "SMITH" 


As has been mentioned, aggregates may be used as 
elements of more complicated numeric expressions. 
For example, if an inventory tax were 10%, the 
following expression could be used to calculate the 
inventory tax on all of the high, low, and medium 
priced items in a warehouse. 


PRINT "Tax on low priced items is " 
PRINT USING SS#,###, ##4. ## 
~10 * 
TOTAL OF (QUANTITY * PRICE) 
WHERE PRICE <= 1000 
PRINT NEW LINE 


PRINT "Tax on medium priced items is " 
PRINT USING S$S#, ###, ###. ## 
10 * 
TOTAL OF (QUANTITY * PRICE) 
WHERE PRICE > 1000 
AND 
PRICE <= 10000 
PRINT "Tax on high priced items is " 
PRINT USING $S$#,###, ###. ## 
~10 * 
TOTAL OF (QUANTITY * PRICE) 
WHERE PRICE > 10000 
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GROUP Aggregates 


The COUNT, PERCENT, TOTAL, and AVERAGE aggregates 
are global aggregates. Their scope is the entire 
body of records that passed the qualification test 
of the FIND command. 


The GROUP COUNT, GROUP PERCENT, GROUP TOTAL, and 
GROUP AVERAGE aggregates have a more limited scope. 
They are used in BREAK clauses to perform 
calculations on groups of data that are delimited 


- by the sorting specified in the SORT command. 


For example, if a data base kept track of all of 
the sales transactions of a company, it might 
contain a field for the salesperson's name, the 
product sold, the quantity sold, the unit price of 
the product for. that sale, and the date of the 
sale. There would probably be several salespeople 
in the company. A typical report request would be 
to print the salesperson's name and the amount of 
gross sales for a given time period, in terms of 
dollars. 


If the dates were stored as strings of the form 
YEAR, MONTH, DAY as "“"YYMMDD", the FIND command 
would qualify all of the records for December of 
1980 with the following: 


FIND 
DATE >= "801201" 
AND 
DATE =< "801231" 
END 


It would be very inconvenient to print the gross 
sales- for the salespeople with DBR code of the 
following form: 


PRINT USING $$#,###,###.## 
TOTAL OF (QUANTITY * PRICE) 
WHERE SALESPERSON = "SMITH" 


If this technique were used there would have to be 
a PRINT USING statement for each salesperson, and 
that salesperson's name would have to be involved 
in explicit qualification in the WHERE clause. The 
report program would then have to be changed 
whenever a salesperson was added or deleted from 
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the sales force. 


Grouping the data records for each salesperson is 
what is actually desired, regardless of how many 
different salespeople are tracked in the data base. 
Since sorting the data by the salesperson's name 
also groups the data according to the salesperson's 
name, the.-following SORT command would provide the 
desired grouping of these replicate records: 


SORT BY SALESPERSON END 


Now that the records are grouped as desired, the 
BREAK clause of the FORMAT command can be used to 
trigger printing for each of the groups: 


ON BREAK OF SALESPERSON 


PRINT "Total sales for salesperson " 
PRINT SALESPERSON. . 
PRINT " are as follows " 


PRINT USING SS#,##, #34. ## 
GROUP TOTAL OF 
(PRICE * QUANTITY) 


PRINT NEW LINE 


This one statement will be executed for each group 
of salesperson records, grouped by the 
salesperson's name. The scope of the GROUP TOTAL 
aggregate is the current group only. 


In the situation above, the GROUP COUNT aggregate 
would print the number of sales made by the 
salesperson for the period. This would be 
expressed as follows: 


PRINT "These gross sales " 
PRINT "were the product of " 
PRINT USING ##, ### 
GROUP COUNT 
PRINT " different sales events." 


The GROUP PERCENT would print the total number of 
records that were in the group, as compared to the 
total number of records qualified for printing in 
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the report. with the FIND command. This could be 
done as follows: 


PRINT "These sales events constituted " 
PRINT USING ###. ## 

GROUP PERCENT 
PRINT " percent of the total sales events" 
PRINT " for the month of DECEMBER." 


The GROUP AVERAGE aggregate is the GROUP TOTAL 
divided by the GROUP COUNT, and has a form 
analogous to the GROUP TOTAL aggregate, in that it 
requires an argument. 


The arguments of the GROUP TOTAL and GROUP COUNT 
aggregates may be simple fields, or numeric 
expressions. But just as in their global aggregate 
counterparts, the argument expressions may not 
contain other aggregates. 


GROUP aggregates are already qualified to have a 
scope limited to the current group. They may not 
be qualified further with a WHERE clause. 


4.7.2.4 PAGE NUMBER Print Item 


The PAGE NUMBER print item is always printable as 
an arithmetic entity. It is typically printed at 
the top or bottom of the page, in either the header 
clauses or the trailer clause. The following PAGE 
HEADER clause is a typical example of this: 


FORMAT 
PAGE HEADER 


PRINT " 7 
{for centering} 

PRINT "MONTHLY SALES REPORT" 

PRINT " , 

PRINT "PAGE NUMBER: " 

PRINT USING #,### PAGE NUMBER 


Notice that the PAGE NUMBER must be printed with 
the PRINT USING statement and not the PRINT 
statement because it is an arithmetic entity. 
Notice also that the syntax is different from a 
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field name because the two words PAGE and NUMBER 
are keywords. 


RECORD NUMBER Print Item 


As reports are printed during the report phase, the 
DBR runtime driver is aware of the record number of 
the record being printed. This record number has 
nothing to do with any of the data items in the 
records, but rather has to do with the relative 
position of the record in the data file. 


It is conceivable that DBR programmers may wish to 
print the record number to help investigate results 
that are unexpected. The DBR syntax contains the 
RECORD NUMBER keyword combination for this reason. 


Just like the PAGE NUMBER, the RECORD NUMBER is an 
arithmetic entity and-must be printed with the 
PRINT USING statement as follows: 


PRINT USING ##,### RECORD NUMBER 


Those DBMS users who are unfamiliar with the 
concept of a BASIC file record number may neglect 
this feature without any loss of capability. 


Special PRINT Statements 


In addition to the PRINT and PRINT USING statement 
there are three other ways of printing fields, 
quoted strings or the results of arithmetic 
calculations. They are the PRINT AS BOLD FACE, 
PRINT WITH UNDERLINING, and the PRINT WITHOUT 
TRAILING BLANKS statements. All three of these 
statements may be used to print any item that can 
be printed with a PRINT or a PRINT USING statement. 


The PRINT AS BOLD FACE statement causes the 
Cromemco 3703 printer to print the entire line as 
doubly wide letters. This includes the margins, so 
twice the size of the left margin should be added 
to any calculation performed to center titles. 


An important thing to keep in mind when using the 
PRINT AS BOLD FACE option is that al] characters, 
including blanks, are printed twice as wide as they 
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would be normally. Therefore, when using the PRINT 
AS BOLD FACE option, the user should be careful to 
insure proper spacing by counting each character to 
be printed as taking the place of two normal width 
characters on the print line. 


Also it is important to remember that the PRINT AS 
BOLD FACE option applies itself to the whole line 
of print, not just the item which contains the 
PRINT AS BOLD FACE option. When the user specifies 
that a given item is to be printed as bold face, 
that item as well as any other items on that line 
will be printed as bold face. The PRINT AS BOLD 
FACE OPTION was intended primarily for printing 
titles. 


Finally, the PRINT AS BOLD FACE option has its 
intended effect only when used with the Cromemco 
3703 line printer. However, use of this option on 
the Cromemco 3355A typewriter quality printer will 
not in any way effect the printer's operation. 
Therefore, programs using the PRINT AS BOLD FACE 
option are transportable between the 3703 and the 
3355A printers. 


The PRINT WITH UNDERLINING statement will print the 
field or quoted string involved in the PRINT 
statement with all of the characters underlined. 
This can only be used in conjunction with Cromemco 
3355a printers. 


Note that the PRINT WITH UNDERLINING option of the 
PRINT statement has only been implemented on the 
3355A printer. This option, although it is not 
implemented on the 3703 printer, will not impair 
the 3703's performance. Therefore, DBR programs 
using the PRINT WITH UNDERLINING -option are 
completely transportable between the two printers. 


The PRINT WITHOUT TRAILING BLANKS statement is a 
construct that is designed to solve the following 
problem when printing mailing labels. Currently, 
the PRINT statement will print fields and strings 
as a fixed number of characters at all times. This 
makes it easy for the programmer to look at the 
program and verify by calculation that the data in 
columns will line up under column headings, without 
actually running the report. 


However, addresses have the following form: 


Pirstname Middleinitial Lastname 
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Street Address 
City, State 
Zip 


If the Firstname field is defined to be 15 
characters, 15 characters will be printed even if 
they are trailing blanks, and the name will look 
awkward. The same problem exists between City and 
State. 


Other problems occur specifically with. mailing 
labels, such as the possibility of a company name, 
suite number, country, attention line, and so 
forth. 


The PRINT WITHOUT TRAILING BLANKS goes a long way 
toward allowing addresses to be printed. PRINT 
WITHOUT TRAILING BLANKS is also useful in many 
other regular report writing situations. 

Numbers or the results of numeric calculations may 
be printed with the underlining or as bold face 
using the following syntax: 


PRINT WITH UNDERLINING USING ###,### SALARY 


The WITH UNDERLINING or AS BOLD FACE phrases 
immediately follow the keyword PRINT in such 
statements. A statement such as: 


PRINT WITHOUT TRAILING BLANKS USING ###,### SALARY 


is allowed, but the WITHOUT TRAILING BLANKS will 
have no effect in such situations. 


The SKIP N LINES Statement 


Unlike the programming language BASIC, when a PRINT 
statement is executed by DBR a new line is not 
implied by default. Several PRINT statements may 
be executed, and the result of the printing will be 
to place all the items on the same line. 


.To move the printing to the next line the NEW LINE 
: keyword combination can be used with the . PRINT 
‘statement as PRINT NEW LINE. Often the programmer 


would like to leave blank lines in the report, such 
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as between a page header and the body of the page. 
This can be done with the SKIP N lines construct: 


PAGE HEADER 


PRINT * be 
PRINT "WEEKLY SALES REPORT" 
SKIP 4 LINES 


PRINT " " 

PRINT "SALESPERSON n 
PRINT "TOTAL SALES" 
SKIP 2 LINES 


The first SKIP statement above left three blank 
lines between the page title and the column titles, 
because the first line skipped was used to 
terminate the line on which the page title was 
being printed. 


The SKIP N LINES construct operates exactly as if N 
PRINT NEW LINE statements were programmed in its 
place. If it is not preceded by a PRINT NEW LINE 
statement, it will leave N - 1 blank lines. 


The SKIP TO TOP OF PAGE Statement 


Sometimes the programmer would like to use a 
concept known as "page breaks" in the report. This 
is usually used in conjunction with the SORT 
command and the BREAK clauses of the FORMAT 
command. 


For example, in the SALESPERSON report example used 
above, there may be.200-300 records for each 
salesperson. They would be sorted by salesperson, 
and a BREAK clause would be conditioned on. the 
salesperson field so that GROUP aggregates could be 
used. 


At the end of the group of records for each 
salesperson, certain subtotals would be printed for 
the salesperson. This salesperson's detail records 
may have taken several pages to print. It might be 
desirable at that time to have a page break 
executed, so that the first detail record for the 
next salesperson appears at the beginning of the 
next page. 
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The SKIP TO TOP OF PAGE statement will accomplish 
this. It will usually be the last thing printed in 
a clause of the FORMAT command. It may only be 
used in the ON EVERY RECORD and BREAK clauses. It 
only makes sense in these two contexts. 


The PAUSE Statement 


Sometimes the programmer would like to have the 
report suspended at a specific place while it is 
being generated. In some cases, the report might 
really be getting printed to the terminal for 
one-time review. The programmer may wish to write 
the program so that the output pauses just after 
each screen is filled with information. 


The PAUSE statement will cause the printing half of 
the report phase to suspend execution, and print 
the following prompt at the terminal: 


Type carriage-return to continue. 


The user must then type a carriage RETURN to have 
the report continue printing. 


The CNTRL-S convention may always be used to 
suspend the printing of a program, as per CDOS 
convention. Also, as has been mentioned 
previously, the ESC key may be used at any time to 
terminate the report. 
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Chapter 5 


ADVANCED FEATURES AND ISSUES 


This section contains discussion of DBR features, 
uses, and behaviors that are not needed for most 
applications. However, it is here for the advanced 
programmers who would like to understand the 
language better or use it in advanced ways. 


DBR can be used to print a file containing the 
report, and to write a disk file that can be used 
as a DBMS data file in a new data base. This is 
very useful when a field must be added to or 
deleted from a data base. 


DBR was primarily designed to read the data from 
DBMS data files, but the language can be used to 
read data from any fixed length record BASIC data 
file with only minor complications. There are no 
complications at all if the BASIC data file is in 
the same format as the DBMS data file, with regard 
to a proper header record, and properly chained 
deleted records. 


This chapter compares the DBR language to 
programming-languages that already exist, as well 
as‘the programming languages that are likely to be 
developed in the future. It also contains a 
summary of DBR's report phase activities, as well 
aS complete explanations of all of the situations 
discussed above. 


OUTPUT TO A FILE 


Using DBR to produce a disk file instead of a 
printed report actually widens the range of uses 
for the language considerably. Since DBR contains 
the SORT command, the language can be used as.a 
sorting utility. An application program could 
create a-data file by whatever means, and then a 
DBR program could be used to create a different 
file containing the same information, but in sorted 
order. 


If the page length is set to 23 lines with the PAGE 
LENGTH option of the OUTPUT command, the report 
written to the file would be conveniently suited 
for viewing using. the Screen Editor. The consumer 
of the report could page through its contents with 
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the Screen Editor PAGE command, or skip to random 
pages, at will. In other words, many reports need 
never be written to paper, they can be produced and 
consumed electronically. 


Some reports may need formatting beyond DBR's 
capabilities. In these cases, the report can be 
written as a file that is compatible with the 
Cromemco Word Processing System Text Formatter. 
This file can then be run through that program to 
actually produce the printed report. 


Also, some reports may need calculations that do 
not correspond to the nonprocedural constructs used 


to perform arithmetic-.with DBR. In most of these 
cases, the DBR program can be broken into two 
programs. The first writes a scratch file 


containing the data to be included in the report, 
and possibly intermediate calculations for each 
record. The second program reads this file as a 
regular BASIC data file and formats the report 
while completing the complex calculation, using the 
intermediate result. 


The report can be written to a file using one of 
the options of the OUTPUT command, which is 
discussed in Section 4.3. 


OUTPUT TO A DATA BASE 


The DBMS package uses several files when 
manipulating data. They are the master file, the 
data file. and a sort file for each sort that is 
defined. The data file is the only file used by 
DBR. Record number 0 contains a header record. 
This record is the same length as all of the other 
records in the file, the sum of all of the field 
lengths. It has the location of the first 
available record in its first five characters, 
blank padded, and the record length in the next 
five characters. The contents of the rest of the 
bytes in the header record are immaterial. 


Notice that this means that the record lengths for 
data files that are of this format must be at least 
10 characters long. 


If no records have been deleted, the first 
available record is the record number of the record 
that will be written next. For example, if there 
are five records of data in the file, then record 
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number zero would be the header record, records one 
through five would be the data records, and record 
six would be the next available record. This is 
true even though the record has not yet been 
written. 


If records have been deleted from the DBMS data 
file then the first three characters of the deleted 
record will have three capital "Z" characters. The 
next five characters will have the record number of 
the next available record, once again, blank padded 
and the rest of the record will be blank filled. 


The available records are thus linked together in 
this linked list fashion. .-DBR will read a data 
base data file with the following strategy. It 
will assume that the first available record number 
in the header file is possibly the record beyond 
the last record in the file. As deleted records 
are encountered, it will keep the largest candidate 
record number as the possible indicator that there 
are no more records. Just before that record is 
about to be read, the program assumes that the last 
data record has been read and acts accordingly. 


DBR expects this format from any file that is TYPE 
DATA BASE. It will also produce a file of this 
format if the OUTPUT command contains the file 
output option, and the output file is defined to be 
of TYPE DATA BASE, 


This feature allows the programmer to write a DBR 
program that will read one DBMS data file and write 
another DBMS data file. The output file may 
contain fewer fields than were in the original DBMS 
file, or it may contain space for additional 
fields. The need to add fields as requirements 
change is very common. 


If DBR is to be used to reformat a data base in 
this manner, the following procedure should be 
used. A new data base should be created that has 
the desired layout. If it is created with the same 
name then it must be created on a different disk 
than the existing data base. A DBR program should 
be written and run to produce a data file that will 
correspond to the new data base layout. This is 
done by specifying file output of type DATA BASE in 
the OUTPUT command, and carefully structuring the 
FORMAT command. : 


The only clause that should be used in the FORMAT 
command is the ON EVERY RECORD clause. It should 
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be written so that there are exactly as many 
characters in the output file record as there are 
to be in the new DBMS layout. Furthermore, great 
care should be taken so that the fields being 
printed from the ON EVERY RECORD-clause will line 
up with the positions of the fields defined in the 
DBMS layout. 


The programmer must keep in mind that the PRINT NEW 
LINE construct will print an ASCII carriage-return 
line-feed sequence, which takes the same amount of 
space aS two characters. There should not be any 
PRINT NEW LINE or SKIP N LINES statements in the 
FORMAT clause of a DBR program that is being used 
to reformat a data base. 


The output file type of DATA BASE is all that is 
required to communicate to DBR that the proper 
header record should be written as. record number 
Zero. The programmer need not explicitly program 
this in the FIRST PAGE HEADER clause. Only the 
data need be printed. 


USING REGULAR BASIC FILES FOR DATA INPUT 


The formatting of DBMS data files that was 
discussed previously was done for a very specific 
reason. Currently CDOS and BASIC deal with a 
physical sector size of 128 bytes on floppy disks. 
The CDOS operating system Keeps track of how many 
sectors are allocated to a file, but not how many 
bytes of the last sector were written. -This can 
create a problem of reading phantom records at the 
end of a BASIC data file. 


For example, if a new file is created in BASIC and 
five ten-byte records are written to the file, when 
it is closed one sector will be allocated for it by 
CDOS. If the file was opened for writing in BASIC 
when those records were written, then the rest of 
the bytes in the sector will be nulls, otherwise 
they would contain whatever was left over from the 
last time something was written to that portion of 
the disk. This is often referred to as garbage. 


If that same BASIC file were opened from BASIC, and 
records were read numbered from zero to as many as 
could be read, BASIC would not stop the reading 
process with any end of file indication until 
twelve ten-byte records were read. When BASIC 
tried to acquire the thirteenth record from CDOS, 
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CDOS would inform BASIC that all of the sectors 
that have been allocated for the file have been 
read. 


However, twelve records were read, but only five 
were written. The seven extra records contained 
either nulls or garbage, and are referred to in 
this manual as phantom records. 


The system for keeping track of the next available 
record that is employed in the DBMS data file is 
the recommended procedure for dealing with this 
problem in CDOS data files built through BASIC. If 
this format is used, then the DBR programs that 
read from these files may use the FILE TYPE DATA 
BASE specification in the INPUT command, and there 
will be no chance of reading phantom records. 


If this is not convenient for the programmer, there 
are alternatives. If the data file is on a floppy 
disk, and the record size is greater than or equal 
to 128 bytes, then-there is no.-chance of reading 
phantom records. The BASIC programmer could always 
have the data file opened for writing when writing 
to it, and then structure the DBR program's FIND 
command such that something explicit is always 
being tested in the record. 


FIND EMPLOYEE.NUMBER > 1 END 


This would qualify all of the real records, but no 
phantom records, since the phantom records would 
contain nulls (zeros) in all positions. Again, 
this will only work if the file had been written 
when it was opened in a WRITE-ONLY mode, and not a 
READ-WRITE mode. 


USING DATA BASE COMPATIBLE FILES FOR DATA INPUT 


The problems just discussed regarding the use of 
regular BASIC files as input files for DBR can best 
be resolved by imitating the file format of the 
DBMS data file. If all software creating and 
maintaining files for DBR reports would use this 
format, then the problem of phantom records would 
not be an issue. 


The format of the DBMS data file was discussed in 
detail in Section 5.2. If the DBR programmer is 
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having trouble with the format, it is suggested 
that some small sample DBMS data files be created 
with the DBMS package and that they be studied with 
the CDOS file dumping utility DUMP. The files may 
also be studied by simply having them printed with 
the TYPE command of CDOS, since they are composed 
solely of ASCII text. However, if the file is 
typed, the nulls that may be in the header record 
will not appear. They can be seen when the file is 
DUMPed. 


When DBR creates an output file compatible with the 
DBMS system, there are no deleted records, so the 
header record always contains the record number of 
the record that would be the first record past the 
current end of the file. DBR also puts blanks in 
the unwritten portion of the header record, as 
opposed to the DBMS nulls. 


NATURE OF THE DBR LANGUAGE 


DBR is a new computer programming language. Since 
there are already so many computer languages in 
existence it may seem doubtful that there is a need 
for yet another one. 


The variety of programming languages represents, 
for the most part, a tower of Babel. They seem to 
be different only for the sake of being different. 
Very few languages have justifications for their 
differences. Whatever justifications they have 
rarely attack the most predominant problem in 
commercial data processing, that of increasing 
software costs in the face of decreasing hardware 
costs. 


The cost of manufacturing integrated circuit chips 
fell dramatically during the 1970's, and will 
continue to fall in the 1980's. This is because 
continuing breakthroughs in the scientific nature 
of the devices and the manufacturing procedures are 
constantly allowing the manufacturers to double and 
re-double the capability they can pack into the 
same hardware devices for the same costs. However, 
when these devices are manufactured into computers, 
and those computers are delivered into information 
processing environments not all of that saving is 
gained by the buyer. This is because the cost of 
software is seemingly going up at the same time. 


Since the capabilities of programs that are being 
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written today are greater than those written in the 
past, it is hard to determine the rate at which 
software costs are ‘rising per unit of information 
processing power, or if in fact they are rising at 
all by such a constant standard. However, it is 
clear to managers of information processing 
resources that they seem to need the same number of 
people, or more, to perform the same jobs as time 
goes by, and those people are getting more and more 
expensive. 


It seems that a new programming language can only 
be excused if it somehow attacks and defeats the 
problem of rising software costs in a significant 
way.-- DBR is one of the first of a new breed of 
programming languages to meet this challenge. 


In order to successfully lower software costs DBR's 
development has been driven by a new philosophy in 
language design... It is true. that there are 
thousands of programming languages in existence, 
but almost all of -them are general purpose 
languages. They allow their users to program the 
computer to do anything that the computer is 
capable of doing. In order to accomplish this most 
easily, these general purpose languages were 
designed to simply be tools for programming the 
computer. ‘This seems like the right idea, but 
thousands of languages using this approach have 
failed to achieve the desired result of 
significantly greater programmer productivity. 


Since computers perform one instruction after 
another, sequentially, almost all programming 
languages mimic this behavior with their linguistic 
constructs. The lowest form of programming 
languages, assembler languages, indeed mimic the 
instruction set of the machine exactly. The 
constructs of these languages typically have 
meanings such as "move one character from here to 
there", or "check to see if this is zero and start 
executing these other instructions instead of the 
next instruction if it is". 


Languages such as BASIC or FORTRAN, use higher 
level constructs, and are known as “higher level 
languages." These constructs usually have meaning 
such as "print a certain message". or "if FICA is 
greater than .07 * SALARY then execute a certain 
group of instructions, otherwise execute some other 
group". 


Notice that all of the these language constructs 
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still imply a sequence of events is taking place. 
The sequence is altered from time to time through 
the use of the parts of the language called 
"control structures", the most prevalent of which 
is the IF-THEN-GOTO statement in its infinite 
variations. These control structures are built 
using the lower level constructs that are in the 
machine's instruction set. 


This would be natural if the task of the programmer 
was to program the computer. However, usually the 
task of the programmer is to develop a tool that 
can be used to print the payroll, or mailing list, 
Or the results of a lab experiment,.-on a monthly, 
weekly, or hourly basis. The programming of the 
computer is only done because a computer is the 
best tool to perform repetitive tasks quickly, 
reliably and accurately. 


The programming of the computer is only a means to 
an end, and was never intended to be the desired 
result of the programmer's effort. The programmer 
should not be forced to think in terms of how the 
computer works, but rather should be given 
languages that allow expression of the problem to 
be solved in terms of the nature of the problem. 
The nature of the machine should be as moot a point 
as possible. 


Since conventional languages mimic the sequential 
nature of. the computer processor, they require that 
the programmer resolve the information processing 
problem into a detailed sequence of steps. The 
level of the detail depends on how "high level" the 
target computer language is. The flowchart is 
typical of a mental tool that programmers have used 
in the past to. help perform this function of 
resolving a problem into a sequence of steps, or an 
algorithm. 


DBR was designed with the philosophy that a 
programming language does not have to give the 
programmer the ability to do anything that the 
computer can do. However, the philosophy continues 
that if this flexibility is taken away, the 
programmer must be compensated with "high level" 
constructs. These constructs should reduce the 
programmer's burden of resolving the problem into 
an algorithm. They should allow expression of the 
problem more directly in terms of the problem, 
rather than in terms of the computer's instruction 
set. 
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DBR is then a special purpose language. It -has 
been designed for the express purpose of allowing 
the programmer to write a program to-read selected 
data from a data base and print a formatted report. 
The programmer cannot write a program to update a 
data base with DBR and cannot write a program to 
ask a user at a terminal questions. 


However, when a programmer does use DBR to do what 
it is capable of doing, it could easily take from 
one fifth to one tenth the time to write the 
program and get it into production. DBR programs 
are usually one fifth the size of their equivalent 
BASIC programs. Many experiments have shown. that 
the time spent on a program by a programmer is 
proportional to the number of lines of code in the 
program. By supplying the programmer with 
constructs to clearly, but succinctly, perform what 
needs to be done, DBR programs are remarkably 
smaller and can be written faster. Also, since 
they are clearer and smaller, they are easier to 
maintain and modify as needs change. 


DBR eliminates the need for the programmer to 
resolve the problem into an algorithm by using what 
are called “nonprocedural" constructs. Since the 
language is designed for a special purpose it is 
not necessary to mimic the computer's instruction 
set, and thus there is no need for procedural 
control structures. It might be a little unnerving 
for the experienced programmer to discover that it 


-is impossible to trace the execution of a DBR 


program. There is no path of execution to trace. 
The only runtime debugging that is done on DBR 
programs is changing the margins or alignment of 
some of the printed items on the format of the 
report. ; 


DBR lets the programmer express what the report is 
to look like by specifying what is to be printed in 
the page headers, page body, and page trailers. 
The programmer can specify what subset of the data 
in the data base should appear in the report, and 
how it should be sorted. Certain arithmetic fields 
can be totalled or averaged. Information can be 
grouped and subtotals and other calculations can be 


.done on those groups. 


:Not all computer programs, or even all report 


programs, can be written in DBR. However, those 
that can certainly should be. Electronic 
components have been manufactured for a great many 
years in the United States. In recent years a new 
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technique of microminiaturizatiom has been shown to 
reap productivity increases measured in orders of 
magnitude. Computer software, however, is a much 
younger industry. It has just recently established 
a history that it can look back upon and sort out 
what seemed obvious and was correct, and what 
seemed obvious and was incorrect. 


The "swiss army knife" approach to information 
processing has not advanced the capabilities of 
commercial practitioners significantly, despite 
such breakthroughs as time sharing, online text 
editing, interpreters, structured programming, and 
inexpensive hardware. 


There have been a number of nonprocedural 
constructs imbedded into general purpose languages. 
These include Keyed Sequential Access Method 
constructs, the COBOL SORT -verb and report writing 
features, and the incredibly popular Data Base 
Management System Calls. The language RPG was 
founded on nonprocedural principles as long ago as 
the 1960's. 


The imbedding of nonprocedural constructs into 
otherwise procedural languages proved to be a wise 
graft in some cases, yet not so wise in others. 
The fact that these languages were still general 
purpose and still basically algorithmic confused 
many . programmers. The fact that the tracing of 
program execution gets quite confused in COBOL 
programs containing the report writing features 
leads most COBOL programmers to ignore them, even 
if their compiler does implement them. The -RPG 
language has been retarded because of a painfully 
cryptic syntax. Also, its very age requires that 
it be bloated with special features that make the 
original language and its intentions hard to find. 


However, KSAM packages and DBMS calls blended very 
well with conventional languages, and are 
considered one of the major boons to data 
processing in the 1970's. In fact, the notion of 
nonprocedural special purpose languages is getting 
its true start in the DBMS community. The data 
base management system maintains information in a 
structure that is well defined and controlled. The 
wide variety of form that information can take has 
already been down-mapped into forms typical of the 
,data base environment. 


‘Since a language designer can assume a great deal 
about the structure of the information maintained 
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by such systems, more succinct and powerful 
constructs can be designed than if the language 
dealt with data from arbitrarily formatted data 
files. This has given rise to query languages and 
report writers for almost every data base 
management system. Other special purpose 
languages, such as data base loading, bulk data 
change, data: archiving, and backup and recovery 
languages are sure to follow. 


In data base environments the question is becoming 
less and less whether to use COBOL, BASIC or 
FORTRAN, but more a matter of whether or not a 
report writer and a data entry system can be used. 
Compared to the possibility of using one of these 
very high level languages, the question of which 
procedural language to use is becoming almost 


immaterial. Usually the language that happens to 


be integrated most completely with these special 


purpose tools is the language of choice. 


It seems that if software is going to have a 
revolution based upon lessons learned from its 
short history, data base management systems and 
their associated very high level, nonprocedural, 
and special purpose languages are going to be at 
the heart of it. Such a software revolution, 
coupled with the hardware revolution, will be sure 
to cause an information revolution even greater 
than the that of the 60's and 70's. 


SUMMARY OF RUNTIME ACTIVITIES 


DBR is run in three phases, which have been 
discussed in Chapter 3 of this manual. The report 
phase does the work of reading the records, 
analyzing them, and printing the report. This is 
done by a piece of BASIC programming that is highly 
procedural. It is this piece of code that maps the 
nonprocedural constructs of the DBR language into 
the procedural constructs that digital computers 
demand. 


The report phase is broken into two parts, the 
qualification half and the printing half. During 
the qualification half, all of the records are read 
and their record :numbers are written to a scratch 
file. This file will be named with the name of the 
original DBR source file, with the extension ".SCR" 
attached to it. However, the user should never see 
this file, unless the machine is reset or fails 
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during the execution of the report phase. 


If the sort command is used, the scratch file also 
contains the keys that are involved in the SORT 
command. The scratch file is a BASIC KSAM file, 
and thus the creation of this file orders the 
records properly. 


The global aggregates are also evaluated during the 
qualification half so that the result of the 
calculation is available in even the first line of 
the report. Group aggregates are dependent upon 
the sorted ordering that is created during the 
qualification half, and thus are not evaluated 
until the control break is recognized, during the 
printing half of the report phase. 


After all of the records have been read and 
examined, and the record number of the records that 
pass the FIND command's test are written to the 
scratch file, the scratch file is read and the 
qualified records re-read from the data file for 
printing in the report. This constitutes the 
printing half of the report phase. 


For reports that qualify every record in the file 
for printing in the report, every record will have 
been read twice. This may take a fair amount of 
time for large data files. particularly when the 
data is stored-on floppy disks. If performance 
-becomes a problem, the user should schedule the 
reports to be printed during the evening hours, as 
is done in commercial data processing 
installations. This is made convenient by the fact 
that the report phase need not be interactive, so 
that the printing of several reports can be 
triggered by the execution of one CDOS batch file. 


If a large amount of data is being processed 
frequently and performance is still a problem, 
faster hardware, such as a hard disk drive, is 
recommended. Typical report writing times that can 
be expected are discussed more thoroughly in 
Chapter 9 of this manual. 
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Chapter 6 


MORE EXAMPLES 


This chapter contains several examples that show 
how the DBR language can be used. The examples 
were chosen to show a diversity of uses. The fact 
that DBR can produce files as output, can read from 
several types of input data files, and can be used 
to add and delete fields from DBMS file systems 
provides the programmer with a great degree of 
flexibility. 


DBR programmers should always consider how the 
language might.be used to solve an information 
processing problem, even if it is not obvious that 
it can at the time. The flexible-file input and 
output options provided by DBR allow it to be used 
as a sort package, and as an extremely 
sophisticated selective file copying utility. The 
potential uses are limited only by the needs and 
ingenuity of the programmer. 


However, DBR was indeed designed to perform the 
specific function of report writing, and the user 
must be aware that there are many things that are 
not conveniently done in DBR. DBR is not a 
replacement for general purpose languages, such as 
BASIC. 


PERSONNEL REVIEW 


The first example is a typical reporting 
requirement-.that is usually satisfied with manual 
methods. Attached is a copy of a personnel review 
form, and a schema listing of a personnel data base 
which contains much of the information that is 
needed on the form. The DBR report program offered 
here will read this information from the data base 
and create the forms, filled in to the extent that 
is possible from the data base, on regular line 
printer paper. The forms will be grouped by 
department, and sorted by name within department, 
for easy dispensing to supervisors. 
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EMP.MST SCHEMA 


field name definition description 
NAME A40 The employee's name. 
ADDRESS1 A30 The employee's address. 
ADDRESS2 A30 The employee's address. 
PHONE Al2 The employee's home telephone. 
START. DATE A6 The date the employee started work. 
TITLE A25 Employee's job title. 
DEPARTMENT A3 Department in which the employee 
: works. 

EMPLOYEE. NUMBER A4 Identification number. 
TERMINATION, DATE AG Date employee stopped work. 
STATUS Al "E" = employed 

“"N" = not employed 
BIRTHDATE A6 Employee birthday. 
unused fields A36 


SALARY REVIEW 
Name: Date Employed: 
Date of Last Review: Employee #: 
Present Rate: 
Recommended New Rate: 
Date Effective: 
Department: 


Position and Responsibilities: 


Responsibilities Assumed Since Last Review: 


New Position and/or Responsibilities recommended: 


Comments: 


Supervisor's Signature 


Personnel Manager's Signature 


Operation Manager's Signature 
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This is a DBR program to print the salary review sheets that must 

be prepared by personnel every six months. The personnel data base, 
EMP has a data file called EMP.DAT that contains 

much of the information pertaining . 
to personnel. Not all of the data that is needed on these forms is in 
this data base, but as much as possible will be extracted. This will 
reduce the amount of handwritten or typed paper work needed to prepare 
these forms for the supervisors. 


The information that is in the data base that can be extracted 

is the employee! Ss name, number, start date, title and department. The date 
of last review is assumed constant for all employees, and it is set 

to six months prior to the value placed in the date effective field. 

Both these dates can be changed in this report program each time the 
evaluation forms are prepared. The present pay rate, and effective 

new rate, will have to be filled in by hand, since the information is stored 
elsewhere for reasons of security. 


The employee's title will be placed in the Position and Responsibilities 
field, although the remainder of this field will probably often be completed 
by the supervisor at the time of review. The remainder of the form consists 
te information that the supervisor will fill in. 


input 


data file “EMP.DAT" 
file type data base 


field NAME 
type alphabetic 
length 40 


field DUMMY1 
type alphabetic 
length 72 


aes 


The address and phone fields } 
are not used here. } 


field START. DATE 
type alphabetic 


Even though it is declared } 
length 6 } 


NUMERIC in the 
DBMS, its usage is alphabetic.} 


een tanataoal 


field TITLE 
type alphabetic 
length 25 


field DEPARTMENT 
type alphabetic 
length 3 


field EMPLOYEE. NUMBER 
type alphabetic 


Again, the type is changed to 
length 4 


fit the usage. 
field TERMINATION. DATE Again, the field is used as 
characters here. 


aoa eee Tame! 


type alphabetic 
length 6 


field STATUS 
type alphabetic 


length 1 
field DUMMY2 { The birthdate, license, and spare } 
type alphabetic { fields are not used here. } 
length 42 


end 


{ 


The optional OUTPUT command will now be used to change the default 
left margin. This saves the work of putting the extra blanks for each 
print statement that begin a line. 


} 
output 

left margin 10 
end 
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{ 


The find command will now be used to select only those employees 
who are still working here to be reviewed. 


} 


find status = "E" end 
{ 


To make it easier to hand the forms out to the supervisors, they will be 
sorted by department (and thus grouped by department). Within a given 
department, the forms will be printed in alphabetical order. 


} 
sort by DEPARTMENT, NAME end 


format 
-on every record 


print " SALARY REVIEW" 
skip 2 lines 


print "Name: " 

print NAME 

print “Date Employed: " 
print START. DATE 

skip 2 lines 


print "Date of Last Review: " 
print " Employee #: " 
print EMPLOYEE. NUMBER 

skip 2 lines 


print "Present Rate: " 
skip 2 lines 


print "Recommended New Rate:" 
skip 2 lines 


print "Date Effective: 9/1/79" 
skip 2 lines 


print "Department: " 

print DEPARTMENT 

skip 2 lines 

print "Position and Responsibilities: " 
print TITLE 

skip 8 lines 


print "Responsibilities Assumed Since Last Review: 
skip 8 lines 


print "New Position and/or Responsibilities recommended:" 
skip 8 lines 


print "Comments:” 
skip 8 lines 


print "Supervisor's Signature " 

print new line 

POLE Fe ar a * 
skip 2 lines 

print "Personnel Manager's Signature " 

print new line 

Petre a ee a a 
skip 2 lines 

print "Operation Manager's Signature "* 

* print new line 

POEmE Be a a 0 a a a a 


skip to top of page 
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The results of a run of this program follow: 


SALARY REVIEW 
Name: ANDERSON, MARION A. Date Employed: 061279 
Date of Last Review: Employee #: 3142 
Present Rate: 
Recommended New Rate: 
Date Effective: 9/1/79 
Department: INV 


Position and Responsibilities: INVENTORY MANAGER 
petponesbsi teres Assumed Since Last Review: 

New Position and/or Responsibilities recommended: 
Comments: 


Supervisor's Signature 


Pe Oe a re a a a es eS eS SP ne 
ee ee a a eee ee ee cae a ee ee 


PAYROLL CHECK WRITING 


Another useful application for DBR is the printing 
of payroll checks. In the example that follows 
payroll check images are written by a DBR to a file 
which will in-turn be input for the Cromemco Text 
Formatter. Each check consists of two parts, the 
check stub, where federal and state tax information 
is formatted, and the check itself. Within the 
text. formatter file to be created by the DBR 
program, the formatter command "@k" is used. This 
causes printing to pause and allow the user to 
insert the next check before printing continues. 
Thus each check .can be positioned properly. 
Printing is resumed by pressing the ESCape key. 
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Since the printing of salaried employee's checks is 
somewhat different from the printing of hourly 
employee's checks this example has been restricted 
to the printing of checks for hourly employees 
only. 


The payroll record fields needed for this example 
are shown below. 


Payroll Record 


fieldname definition description 
employeename A30 employee's last, first middle 
salaried Al “y" if a salaried employee 
"n” if a payrolled employee 
regularhours N2 regular hours worked 
overtimehours N2 overtime hours worked 
regularrate NS regular pay rate/hour 
overtimepayrate N5 overtime pay rate/hour 
socsectax N5 social security taxes for this 
pay period 
fedwithhold NS federal withholding taxes for 
this pay period 
sdi N5 state disability insurance for 
this pay period 
stateinctax N5 state income tax for this 
pay period 
totaldeducts N7 total deductions for this 
pay period 
netpay N7 net pay for this pay period 
englishl000 ALS english equivalent to the number 


of thousands to be paid from the 
total paid field. These fields 
are filled in by another routine. 
english100 Al3 english equivalent to the number 
of hundreds to be paid from the 
total paid field 
englishl0 A25 english equivalent to the number 
of tens and cents to be paid from the 
netpay field. 


The DBR source code to generate payroll checks for 
payrolled employees is shown below. 


i 
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put 


data file “payroll.dat" 
file type data base 


{This is where the social security number is held} 
{It is no used in this program 


field dummyl 
type alphabetic 
length 12 


field name 
type alphabetic 
length 30 


field salaried 
type alphabetic 


length 1 


field dummy2 
type numeric 
length 5 


field rhours 
type numeric 
length 2 


field ohours 
type numeric 
length 2 


field rrate 
type numeric 
length 5 


field orate 
type numeric 
length 5 


field sstax 
type numeric 
length 5 


fieid dummy3 
type numeric 
length 7 


field fedwithhold 


type numeric 
length 5 


field dummy4 
type numeric 
length 7 


field sdi 
type numeric 
length 5 


field dummy5 
type numeric 
length 7 


field stateinctax 


type numeric 
length 5 


field dummy6 
type numeric 
length 7 


field totaldeducts 


type numeric 
length 7 


field netpay 
type numeric 
length 7 


{This field is normally used hold the bi-monthly} 
{salary if the employee is a salaried employee } 


{This field is used to hold the year-to-date total} 
{for social security taxes applied to this employee} 


{This field is used to hold the year-to-date total} 
{for the federal withholding taxes applied to this} 
{employee. } 


{This field is used to hold the year-to~date total} 
{for the state disability taxes paid by this 
{employee : 


{This field is used to hdéld the year-to-date total} 
{for the state income tax withheld for this employee} 
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field thousand { These fields are filled with the english } 
type alphabetic { equivalent to the numeric value in netpay before } 
length 15 { this DBR program is executed. } 


field hundred 
type alphabetic 
length 13 
field ten 
type alphabetic 
length 25 
end 
output 
file "checks" 
file type regular 
left margin 1 
end 
find salaried = "N" {The "N" must be capitalized because all alphabetic} 
i {data is stored in capitals in a DBMS data base. 
en 


sort by name 
end 


format 
on every record 


{formatter commands} 


print "@k" {allows user to insert another check into the printer} 
{user presses ESCape to restart printer. } 

print "@nn" {supresses Formatter page numbering. } 

print “@tm=3" {sets top margin for Formatter to three. } 

print "@i" {tells Formatter that what follows is to be typed j 
fexactly as it appears in the file. 


{check stub} 


print "For the period ending 08/15/80" 
skip 2 lines 


print using ## rhours 

print " = 

print using ##.## rrate 

print " " 

print using #,###.## (rhours * rrate) 
print new line 


print using ## ohours 

print " . 

print using ##.## orate 

print " " 

print using #,###.## (ohours * orate) 
print new line 


print "Total Earnings: iy 
print using #,###.## ((rhours * rrate) + (ohours * orate) ) 
skip'2 lines 


print " " 
print using ##.## sstax 
print new line 


print " , 
print using ##.## fedwithhold 
print new line . 


print " . 
print using ##.## sdi 
print new line 


oat 


print " " 
print using ##.## stateinctax 
print new line : 
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print "Total Deductions: Wy 
print using #,###.## (sstax + fedwithhold + sdi + stateinctax) 
print new line 


print "Net Pay: . 

print using #,###.## ((rrate * rhours) + (orate * ohours) } 
(sstax + fedwithhold + sdi + stateinctax) 

skip 10 lines 


{check } 
print " . 


print "August 15 80" 
skip 2 lines 


print " ” 
print name 
print " " 


print using *,***,## ((rrate * rhours) + (orate * ohours)) 


(sstax + fedwithhold + sdi + stateinctax) 
skip 2 lines ; 


print thousand 
print " " 
print hundred 
print " " 
print ten 
print new line 


{formatter commands} 
print "@j" {tells formatter that this is the end of as is typing) 
print "@e" {tells formatter that this is the end of a page 
print new line 
end 


bye 


The output from the above program is as follows: 


@k@nn@tm=3@iFor the period ending 08/15/80 


1 40 5.00 200.00 
2 7.50 15.00 
Total Earnings: 215.00 
2.00 
20.00 
0.56 
0.57 
Total Deductions: 23.13 
Net Pay: 191.87 
August 15 80 
HENDSON, ALICE B. **191.87 


ONE HUNDRED NINETY~ONE 87/100 
- Bj 


The above output from the DBR program is then used 
as input to the Cromemco Text Formatter and the 
results are as follows. 
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For the period ending 08/15/80 


40 5.00 200.00 
2 7.50 15.00 
Total Earnings: 215.00 
2.00 
20.00 
0.56 
0.57 
Total Deductions: 23.13 
Net Pay: 191.87 
August 15 80 
HENDSON, ALICE B. **191.87 


ONE HUNDRED 


INVENTORY EXAMPLE 


NINETY-ONE 87/100 


An inventory manager needs a report on those parts 
which are not in stock, and which go into component 


number 42351. 
number of parts 
availability. 


are defined below. 


The listing 
presently on hand and their 
The fields needed for this report 


should include the 


Inventory Fields Needed 


field name data type 
partnum alphabetic 
ofcomponent alphabetic 
onhand numeric 
available numeric 
leadtime numeric 


The DBR source code to 
below. 


5 part number 

5 the part number of the 
component of which this 
partnum is a part 

number of parts in stock 
number of parts available 
for sale 


Wu 


3 lead time in days 


create this report is shown 
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input 


data file "invent.dat" 
file type data base 


field partnum 
type alphabetic - 
length 5 


field ofcomponent 
type alphabetic 
length 5 


‘field onhand 
type numeric 
length 3 


field available 
type numeric 
length 3 


field leadtime 
type numeric 
length 3 


field orderqty 
type numeric 
length 3 


end 


find ofcomponent = "43251" 
and 
available = 0 
end 


sort by partnum end 
format 
page header 


print * 

print new line 
print " 

skip 2 lines 
print "Part 
print new line 
print " No. No. 
skip 2 lines 


on every record 


print " " 
print partnum 


print * bs 

print ofcomponent 

print " u 

print using ### leadtime 
- print " = 

Print using ### onhand 

print " e 

print using ### available 

print " . 


print using ### orderqty 
skip 2 lines 


end 
bye 
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The results of the above program are shown below. 


PARTS LIST FOR COMPONENT 43251 
(to be ordered) 


Part Component Leadtime Qty. Qty. Order 
No. No. Days On Hand Avail. Qty. 
ll 43251 15 10 0 100 
22 43251 7 80 0 90 
31 43251 30 5 0 40 
41 43251 7 7 0 50 
55 43251 60 100 0 500 
68 43251 60 3 0 9 


REAL ESTATE EXAMPLE 


A large residential real estate brokerage firm has 
a file consisting of listings for houses ranging in 
price from fifty to five hundred thousand dollars 
over an area that extends into four counties. Each 
branch office has a Cromemco computer which holds 
the residential listings for the entire four-county 
area. Because buyers come into the branch office 
wanting only information about houses with 
particular characteristics, the salespeople in each 
office need a way to create reports which represent 
information pertaining to only the particular type 
of house in which the buyer is interested. 
Therefore, a report program that could find houses 
within a chosen price range and size would be an 
invaluable help to the salesperson. 


The fields which are of interest from the 
residential real estate file are the following. 


Residential File 


field name data type length definition 


address alphabetic 30 address 
city alphabetic 5 abbreviation of 
city 
footage numeric 5 footage sq. ft. 
bedrooms numeric 2 number of bedrooms 
baths numeric 2 number of bathrooms 
lotsize numeric 3 lot size in 
fractions of acres 
corner alphabetic 1 "y" or "n" 
if corner lot 
schools alphabetic 1 *y" or “n" 
if near public 
schools 
price numeric 7 offering price 


What follows is the DBR source code for the 
creation of a residential real estate listing for 
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houses with prices between $100,000 and $130,000, 


with more 


than two 


bedrooms, 


in the cities 


abbreviated by the letters "SC" and "CUPTNO". 


input 


end 


data file "resident.dat" 
file type data base 


field addressl 
type alphabetic 
length 30 


field address2 
type alphabetic 
length 30 


field city 
type alphabetic 
length 5 


field footage 


type numeric 
length 5 


field bedrooms 
type numeric 
length 2 


field baths 
type numeric 
length 2 


field lotsize 
type numeric 
length 3 


field corner 
type alphabetic 
length 1 


field schools 
type alphabetic 
length 1 


field price 
type numeric 
length 7 


output file “real.rpt" 


end 


find 


file type regular 
left margin 1 


(price < 130000 and 
price > 100000 and 
bedrooms > 2) 


and 


end 


(city = "Sc" or 
city = "CPTNO") 


sort by city 


end 
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format 


page header 

print "* . : 
print “Residential Real Estate Listing" 
skip 2 lines 


print "City Address Bedrooms Baths Sq.Ft. Price" 


skip 2 lines 
on every record 


print city 

print " bd 

print addressl[1,20] 

print " id 

print using ## bedrooms 
print * . 

print using ## baths 

print " . 

print using ##,### footage 
print " $* 

print using #,###,### price 
print new line 


end 


bye 


The report resulting from the above DBR program is 


shown below: 


Residential Real Estate Listing 


City Address Bedrooms Baths Sq.Ft. Price 

CPTNO 342 N. PATTERSON ST. 5 3 3,000 $ 126,000 
sc 1365 E. BAKER ST. 3 2 1,500 $ 101,000 
sc 777 N. ALLISON 3 2 2,500 $ 125,000 
sc 89343 BAXTER BLVD. 5 4 3,000 $ 129,000 
sc 8954 E, RANDOLPH ST. 3 2 2,600 $ 124,000 
sc 123 VALLEY ST. 3 2 2,500 $ 101,000 


MAILING LABELS 


The manager of a fine jewelry store wants to send 
invitations to-his best customers for an exclusive 
showing of rare jems. He doesn't like the idea of 
printing addresses on gum labels because that would 
detract from the image which he wants to project. 
He also has nearly five hundred customers whom he 
wishes to invite to the showing and only a few days 
to send out the invitations. 


The solution to the mailing list problem is to 
create a Cromemco Formatter file that will type the 
customer addresses directly on the jewelry store's 
stationary. This task can be accomplished through 
the use of DBR to create a Formatter file which 
will hold all the addresses of the jewelry store's 
customers in the exact format needed for typing the 
addresses on the jewelry store's stationary. Since 
the printer can't manipulate separate envelopes 
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without human intervention, the envelopes must be 
fed. to the printer individually by hand. This 
implies that within the formatter file the command 
"@K", keyed input command, must be used to create a 
stopping point at which the user may insert the 
next envelope to be printed. Also the manager 
wants to print small parts of the mailing list at 
one time because the computer is being used for 
other tasks during the day. This can be done by 
dividing the formatter file created by the DBR 
program into several smaller files which then can 
be printed during short periods of free time during 
the working day. Putting output in the form of a 
Cromemco Formatter file will also allow the user to 
save the mailing label file for future use. 


The .data base from which the DBR mailing label 
program is to receive its input is the customer 
database which contains, among other fields, the 
customer's name, address, city, and zip code. The 
output is to contain all the fields mentioned 
above, centered on the jewelry store's stationary 
as well as the return address of the store in the 
upper left-hand corner. The field definitions for 
the fields used from the customer file are shown 
below. 


Customer Database 


field name data type length 
name alphabetic 30 
addressl alphabetic 30 
address2 alphabetic 30 
address3 alphabetic 30 
city alphabetic 30 
state alphabetic 2 
zip alphabetic 5 


The DBR source code to create the mailing list 
formatter file is as follows: 
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input 


end 


data file “cust.dat" 
file type data base 


field name 
type alphabetic 
length 30 


field addressl 
type alphabetic 
length 30 . 


field address2 
type alphabetic 
length 30 


field address3 
type alphabetic 
length 30 


field city 
type alphabetic 
length 30 


field state 
type alphabetic 
length 2 


field zip 

type alphabetic 
length 5 

field dummyi 


type alphabetic 
length 35 


output 


end 


file "maillist" 
file type regular 
left margin 1 


find every record 


end 


sort by name 


end 


{This field is made up of several fields within} 
{the file which are not being used by this. DBR } 
{program. } 
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on every record 


print 


print 
print 
print 
print 


"@k" {stops printer for insertion of new envelope. 
{to restart typing press ESCape key. 

"@nn" {prevents page numbering in Formatter output 

"@tm=2" {top margin set to 2. 


"@i" {forces formatter to print the following as is. 


new line 


{return address} 


print 
print 


print 
print 


print 
print 


print 
print 


print 


{print the return address in upper left hand 
{corner of the envelope. 

"Five and Dime Jewelry" 

new line 


"1234 Fifth Street" 
new line 


"Suite 666" 
new line 


"Anytown, USA" 
new line 


"99999" 


skip 5 lines 


\ _ {addressee} 


print 
print 
print 


: : print 
' print 
print 


print 
print 
print 


print 
; print 
( print 


print 
print 
print 
print 
print 


print 
¢ print 
; print 


{print the customer's address near the center of 
{the envelope. 


ww wv 
name 

new line 

nw n 


addressl 
new line 


address2 
new line 


address3 
new line 


n " 

without trailing blanks city 
if is 

state 

new line 

n n 

zip 

new line 


{end of page} 


print 
print 
print 


end 
( bye 


"ej" {end of as is format} 
"@e" {end of page indicator} 
new line 
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The results of this DBR program are written to a 
regular CDOS file and that file is in turn used as 
input to the Cromemco Formatter. The output from 
the DBR program will be as follows. 


@k @nn @tm=2@i 

Five and Dime Jewelry 
1234 Fifth Street 
Suite 666 

Anytown, USA 

99999 


BAKER, JEFFERY 
54734 NEWTON BLVD, 
NEWTON APTS. 
APT. 44 
HANLEYTON, NC 
34254 

aj 


The result after this Formatter file has been input 
to the Cromemco Formatter is as follows. 


Five and Dime Jewelry 
1234 Fifth Street 
Suite 666 

Anytown, USA 

99999 


BAKER, JEFFERY 
54734 NEWTON BLVD. 
NEWTON APTS. 

APT. 44 

HANLEYTON, NC 
34254 


SCIENTIFIC LABORATORY STATISTICS 


A cancer research lab is trying to study certain 
molecules that are manufactured by tumor cells and 
secreted into the bloodstream of cancer patients. 
These factors are known to suppress the patients 
immune system, and are suspected of being involved 
in signalling the spreading, or the quieting of the 
disease. 


To study these factors pieces of the tumor are put 
into tissue culture in petri dishes. 


The researchers would like to determine as soon as 
possible what the best combination of culture 
conditions is so that the tumor can be treated 
accordingly. They design an experiment with 6 
different combinations of temperature, pH, gas 
tensions, air pressure, and concentration of bovine 
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albumin. 


The experimental lines are numbered from 1 to 64 
and are cultured in triplicate petri dishes, one 
triplicate for each of the 180 days that the 
experiment is to run. Each day the number of cells 
in the petri dishes is computed using an automated 
cell counter. The liquid culture medium is also 
analyzed in a chemical analyzer to determine 
relative concentrations of the desired factor. 


Both of the analyzers are capable of printing their 
results on a teletype, punching paper tape or 
interfacing directly with a computer as would a 
computer terminal. A program has been written to 
format the data in a DBMS compatible format, with 
the following layout. 


DBMS Layout for Tissue Culture Data 


field name definition 
DATE A6 
EXPERIMENT LINE A2 
CELL COUNT N8 
RELATIVE FACTOR CONC. Ns 


The researchers would like a daily report 
summarizing the survival rate and factor production 
rate for each of the experimental lines. The DBR 
program offered will print the triplicate data, as 
well as the average of the triplicates, for each of 
the experimental lines. This particular report is 
a daily report, but obviously reports summarizing 
any time period, or the entire experiment could be 
produced using DBR, by combining the daily data 
bases with a BASIC program. 


As the size of the experiment grows the advantage 
of using automated analysis techniques also grows. 
In practice, experiments with over one hundred 
experimental lines similiar to the ones described 
here are not uncommon. It is also not uncommon for 
a lab to be carrying on over a dozen of such 
experiments concurrently. 
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input 


data file " 


culture.dat" 


file type data base 


"field date 
type alphabetic 


end 


length 6 


field line. 
type alphab 
length 2 


field cell. 
type numeri 
length 8 


number 
etic 


count 
c 


field concentration 


type numeri 
length 8 


¢ 


find every record end 


sort by line.number end 


forma 


t 
page header 


print 
print 
print 
print 
print 
print 
print 
skip 2 
print 
print 
skip 4 


"Tissue Culture Experiment - Daily Report” 
ia Date: 
date [3,4] 
a/8 
coca 
date [1,2] 
lines 
A Count * 


"Concentration" 
lines 


on every record 


print 
print 
print 
print 


using ##,###,### cell.count 

a 

using ##, ###,### concentration 
new line 


on break of line.number 


skip 2 
print 
print 
print 
print 
print 


print 
print 
print 
print 
skip 3 


lines 

"Average count for line number 
line.number 

"is " 
using ##,###,### group average of (cell.count) 
new line 


"Average concentration for line number " 


line.number 

* is * 

using ##,###,### group average of (concentration) 
lines 
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When the report is run the output looks like 


Tissue Culture Experiment - Daily Report Date: 01/15/80 


Count Concentration 


450 987 
549 1,500 
467 .1,000 
Average count for line number 01 is 489 
Average concentration for line number 01 is 1,162 
547 1,300 
500 897 
605 1,100 
Average count for line number 02 is 551 
Average concentration for line number 02 is 1,099 
578 1,200 
567 1,100 
456 1,004 
Average count for line number 03 is 534 
Average concentration for line number 03 is 1,101 
543 1,234 
546 1,004 
532 987 
Average count for line number 04 is 540 
Average concentration for line number 04 is 1,075 
456 987 
534 943 
497 987 
Average count for line number 05 is 496 
Average concentration for line number 05 is 972 
456 897 
453 865 
456 765 
Average count for line number 06 is 455 
Average concentration for line number 06 is 842 
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Tissue Culture Experiment - Daily Report Date: 01/15/80 


Count Concentration 


456 789 
567 1,023 
567 1,200 
Average count for line number 07 is 530 
Average concentration for line number 07 is 1,004 
564 1,105 
478 986 
499 867 
Average count for line number 08 is 514 
Average concentration for line number 08 is 986 
604 1,203 
678 1,200 
699 1,200 
Average count for line number 09 is 660 
Average concentration for line number 09 is 1,201 
756 1,320 
654 - 1,100 
564 1,000 
Average count for line number 10 is 658 
Average concentration for line number 10 is 1,140 
657 1,300 
678 1,300 
789 1,400 
Average count for line number I1 is 708 
Average concentration for line number 1l is 1,333 
658 1,400 
876 1,500 
758 1,600 
Average count for line number 12 is 764 
Average concentration for line number 12 is 1,500 
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ALTERING A DATA BASE 


In the payroll program depicted in Section 6.2 of 
this manual checks were written from a data base 
called "payroll.dat". Under present circumstances 
this data base meets the needs of its user 
satisfactorily. But if at some point in the future 
the user of this data base wanted to change the 
length of a field, add a new field, or delete a 
field altogether from the data base, he/she would 
have to create a program that would read the old 
data base as input and would rewrite the data out 
in the format of the new data base. To write such 
a program would require on the part of the user 
knowledge of how the data base is constructed (See 
discussion of ".dat" files in Section 5.2). As a 
remedy to this problem DBR has been designed to 
create ".dat" files from either regular files or 
data base files when the FILE TYPE DATA BASE clause 
is used in the OUTPUT command of a DBR program. 


As an example of how easily DBR can be used to 
alter a data base the file "payroll.dat" was 
examined to see what improvements might be made. 
As the first improvement the NAME field might be 
shortened from thirty characters to twenty, this 
would save space on disk. As a second improvement 
the FEDWITHHOLD field should be lengthened to N6 
from its present N5. At present N5 isn't long 
enough to hold federal withholding taxes for many 
salaried employees. Also, since this company is 
starting a retirement savings plan for its 
employees, two new fields must be added to the 
record to accommodate this new plan. These two 
fields allow for (1) a monthly payroll deduction 
and (2) a to-date accumulator for all such 
deductions taken since the given employee joined 
the plan. These fields are named MRETIRE and 
TDRETIRE respectively. 


The program which accomplishes these alterations is 
shown on the following pages. 
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input 


data file "payroll.dat" 
file type data base 


field ssnumber 
type alphabetic 
length 12 


field name 
type alphabetic 
length 30 


field saLaried 
type alphabetic 
length 1 


field salary 
type numeric 
length 5 


field rhours 
type numeric 
length 2 


field ohours 


type numeric 
length 2 


field rrate 
type numeric 
length 5 


field orate 
type numeric 
length 5 


field sstax ( 
type numeric : 
length 5 


field ytdsstax 
type numeric 
length 7 


field feawithhold 
type numeric 
length 5 


field ytdfedwith 
type numeric 
length 7 


field sdi 
type numeric 
length 5 


field ytdsdi 
type numeric 
length 7 


field stateinctax 
type numeric 
length 5 


field ytdstinctax 
type numeric 
length 7 


field totaldeducts 
type numeric 
length 7 


field netpay 
type numeric ; 
length 7 ( 


field thousand sa 


type alphabetic 
length 15 
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field hundred 
type alphabetic 


length 13 
field ten 
type alphabetic 
length 25 
end 
output 
file "payroll2.dat" 
file type data base {When altering a data base, the output file core: 
{is always "data base". 
record length 184 {This clause must be present. The record length} 
{stated here must agree with the sum total of } 
{of all the fields defined in the master file } 
{created for the new payroll data base. } 
end 
find every record 
end 
sort by name 
end 
format 
on every record 
print ssnumber 
print name[1,20] {This will write to the new payroll file only the } 
{first twenty characters of the alphabetic field }. 
{"name". In the new data base "name" will be ‘ 
{defined as NAME,A20 which shortens it from the 
{present detinition of A30. } 
: print salaried 
print using ##### salary 
print using ## rhours 
print using ## ohours 
print using ##.## rrate 
print using ##.## orate 
print using ##,## sstax 
print using ###%.## ytdsstax 
print using ##.## fedwithhold 
print mune {This blank will add one more character to the length } 
{of the field "fedwithhold". The field "fedwithhold" } 
{will have the new definition N6 in the new data base.} 
print using ####.## ytdfedwith 
print using ##.## sdi 
print using ####.## ytdsdi 
print using ##.## stateinctax 
print using ####.## ytdstinctax 
print "0000.00" {This is the new Retirement Plan monthly payroll} 
{deduction field. Its definition in the new data} 
{base is MRETIRE,N7. 
print "000000.00" {This is the new Retirement Plan to-date payroll} 
{deduction field. Its definition in the new data} 
{base is TDRETIRE,N9. 
print using ####.## totaldeducts 
print using ####.## netpay 
print thousand 
print hundred 
print ten 
{NOTE: There are no "SKIP LINES" or "PRINT NEW LINE"} 
{clauses in this program. Since these will print } 
: {carriage control characters on output they should } 
_ 3 {NEVER be used in the FORMAT specifications of a DBR } 
{program being used for altering a data base. } 
end 
bye 
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Chapter 7 


GLOSSARY 


Aggregate 


A DBR aggregate is a numeric quantity that is the 
result. of a calculation on the entries in a 
particular field. For example, if a data base has 
a field named SALARY, then the phrase AVERAGE OF 
(SALARY) would be computed during the report phase 
as the- AVERAGE of the SALARY field. DBR has four 
aggregates, TOTAL, AVERAGE, COUNT and PERCENT. 
They may be tsed as global aggregates or group 
aggregates. 


Alphabetic Data Type 


Data stored in DBMS data files are one of two 
types, ALPHABETIC or NUMERIC. If the data is to be 
used in calculations in the DBR program, then it 
must be defined as type NUMERIC. Otherwise, it 
should be defined as type ALPHABETIC. 


Blank Padding 


In the FIND command an ALPHABETIC may be compared 
to a string of characters surrounded by quotation 
marks. If the number of characters in the quoted 
string is less than the number of characters in the 
field the DBR system will assume that the 
programmer meant them to be the same length. It 
will also assume that the missing characters are at 
the end of the string and that they were meant to 
be blank spaces. This convention is known as blank 
padding a string. 


Boolean Expressions 


A boolean expression is an English-like phrase that 
evaluates to either true or false. For example, a 
boolean expression may be used in the DBR FIND 
command, such as SALARY > 20000 AND POSITION = 
"PROGRAMMER." This test would be applied to each 
record. If the expression is true for the record, 
then the record becomes qualified for printing in 
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the report. If it is false for the record, then 
the record is ignored when the report is printed. 
Boolean expressions may also be used to qualify 
global aggregates of the FORMAT command. 


Compilation Phase 


The preparation of a DBR program contains three 
phases. After the report is written using the 
Screen Editor, the DBR compiler is used to 
translate it into fragments of a Structured BASIC 
program. This is known as the compilation phase. 
These program fragments are written to a file that 
has the ".lst" extension. If there are errors in 
the file, then the the ".lst" file will not be 
generated. Instead a file with the extension 
",err" will contain a copy of the DBR program, 
containing error messages. 


Control Break 


The concept of a control break is involved with the 
concept of sorting data, and thus naturally 
grouping data. If a data base has a SALARY field, 
then. the data records may be sorted by the SALARY 
field, and thus all of the employees with the same 
salary are grouped next to each other in this 
sorted ordering. As the records are processed by 
the report phase of DBR, the changing of the group 
is detectable by the system. This change of the 
group is referred to as a control break on the 
field of interest. This control break can be 
exploited with the ON BREAK clause and the GROUP 
aggregates of the FORMAT command to print subtotals 
for these groups. 


CNTRL~P Convention 


Computer terminals have a special key called the 
control key. On Cromemco terminals it is labelled 
with the four characters CNTRL. When a character 
on the keyboard is struck while holding this key 
down, a special invisible character is sent from 
the terminal to the computer. When running under 
CDOS, the combination of the control key and the 
letter P will cause a printer which is attached to 
the computer to print the interactions at the 
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terminal as they occur. This printing can be 
turned off by once again typing the CNTRL-P 
combination. The report can be printed by striking 
the CNTRL-P before running the report phase. The 
report could also be sent to a file, and printed 
later, or it could be sent to the printer using the 
REPORT TO LINE PRINTER option of the OUTPUT 
command. -This is a property of the CDOS operating 
system. For more information on this, see the CDOS 
manual. 


Comments 


It is desirable to make notations in the DBR 
program explaining what the program is intended to 
do. These notations are called comments. They 
must be surrounded with curly braces so that the 
DBR compile phase translator does not confuse them 
with parts of the progran. 


DBMS 


This acronym stands for Data Base Management 
System. There are many products that run on many 
computers that are referred to as data base 
management systems. They are software packages 
that make it easier for users of the computer to 
create data bases, add, delete, and modify data, 
and produce desired reports. Cromemco's DBMS 
maintains the data in a fashion that is convenient 
for DBR to read and print as a report. 


Escape Key 


There is a special key on computer terminals that 
can often be used to communicate the need to 
terminate a program. The DBR report phase will 
recognize the ESC (escape) key, and will ask the 
user if the report should be prematurely 
terminated. 
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Find Command 


The FIND command is the DBR command that is used to 
specify the subset of the data base that is to be 
used in the report. A simple FIND EVERY RECORD END 
form can be used to indicate that every record in 
the data base is to be used in the report, or a 
powerful and flexible boolean expression may be 
used. 


Format Command 


The FORMAT command is one of the five DBR commands 
that are used to define the desired report. The 
FORMAT command is used to indicate how the data is 
to be formatted in-the printed report. This is 
done by using combinations of the FIRST PAGE 
HEADER, PAGE HEADER, PAGE TRAILER, ON EVERY RECORD 
and ON BREAK clauses of the FORMAT command. 


Format String 


The format string is required by PRINT USING 
statements to indicate how numeric data is to be 
formatted during the printing of the report. This 
string must conform to the rules for forming PRINT 
USING format strings in Cromemco 32K Structured 
Basic. The only difference is that DBR format 
strings should not be surrounded by quotation 
marks. - The manual for BASIC should be consulted if 
difficulties are encountered with format strings. 


Global Aggregate 


Aggregate calculations are based on the entries in 
a given field. A global aggregate uses all of the 
entries in the data base in its evaluation. The 
other type of aggregate is a group aggregate. 


Group Aggregate 


Aggregate calculations are based on the entries in 
a given field. A global aggregate uses all of the 
entries in the data base in its evaluation. Group 
aggregates use only the entries that are contained 
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in a group of entries. The grouping is determined 
by the sorting of the data, and by which BREAK 
clause the group aggregate is conditioned on. 
Sorting data naturally groups data. For example, 
if a group of records were sorted by a CITY field, 
then all of the records from the same CITY would be 
in the same group. If there were also a SALES 
field in each record, then the TOTAL or AVERAGE of 
the sales could be printed in the report, broken 
down by cities. This could be done by sorting the 
data on the CITY field in the SORT command and then 
conditioning the printing of the GROUP aggregate on 
a BREAK on the CITY field. 


Header 


A header is the part of the report that appears at 
the top of the page. DBR allows the user to 
specify a special header for the first page of the 
report, as well as specify a header for the rest of 
the pages of the report. If no first page header 
is specified, then the header specified for the 
rest of the pages of the report will be used. If 
no headers at all are specified, then there will be 
no headers on the pages of the report. 


Input Command 


The DBR INPUT command is used by the programmer to 
indicate the names and sizes of the fields in a 
data base or data file. 


Numeric Data Type 


Data stored in DBMS data files are one of two 
types, ALPHABETIC or NUMERIC. If the data is to be 
used in calculations in the DBR program, then it 
must. be defined as type NUMERIC. Otherwise, it 
should be defined as type ALPHABETIC. 


Output Command 

The OUTPUT command may be used by the programmer to 
change the left, top or bottom margins of the 
report, change the page length, send the report to 
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a file, send the report to a new data base, or send 
the report to the line printer. This command is 
optional. 


Relational Operators 


The boolean expressions of the FIND command and the 
WHERE clauses contain comparisons such as "equal 
to" or "greater than." These parts of the boolean 
expression would be represented by the symbols "=" 
and ">", There are six such legal symbols and they 
are known as the relational operators. 


Screen Editor 


DBR is a compiled language. This means that DBR 
programs must be prepared using a text editor so 
that they may be presented to the DBR compiler for 
translation into 32K Structured BASIC. The most 
desirable editor for this task is the Cromemco 
Screen Editor. 


Sort Command 


The SORT command is used to indicate the desired 
sorted ordering of the data in the report. There 
are two reasons for sorting the data. If the data 
is to appear in the report in a particular order, 
then it should be sorted in that order by 
specifying this desire in the SORT command. If the 
GROUP aggregates are to be used then the data must 
be sorted on the field on which the control break 
is to be based. This command is optional. 


Subscripting 


Alphabetic fields may contain information that is 
of interest, even though the entire field is not of 
interest. For example, an employee number may have 
encoded inside of it the date the employee began 
working for the firm. If the employee number is 
ten characters long, and this information is in the 
first six characters, then this data could be 
printed with the following construct: 
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PRINT EMPLOYEE. NUMBER[1,6] 


Subscripting may be used in the FIND and. SORT 
commands as well, but only on ALPHABETIC fields. 
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Chapter 8 


ERROR MESSAGES AND RECOVERY PROCEDURES 


The goal of the DBR language is to speed the rate 
at which production report generating programs can 
be prepared from requirement specifications. This 
means that the language must offer a syntax that 
clearly reflects the meaning it represents. Toward 
this goal, the DBR language has been designed to be 
as close to English as possible, and cryptic 
language constructs have been avoided. 


However, any language must contain a certain number 
of arbitrary rules. The job of the compiler is 
that of a language translator. This translator 
must not only be able to translate correctly 
structured programs, but must also be able to 
recognize syntactically incorrect source code as 
well. 


Since the goal of DBR is to speed the program 
development process, it is very important that the 
compiler communicate with the programmer as much as 
possible, and aid in the correction of any program 
coding or typographical errors. 


To this end, DBR incorporates verbose error 
messages, often many sentences long. DBR also 
includes line numbers and character positions of 
the exact point of trouble, and, in most cases, an 
arrow pointing to the problem. Sometimes DBR 
cannot easily determine the exact position of the 
offending structure. In these cases, the arrow is 
not drawn. 


If the nature of the problem cannot be identified 
from examining the error message and the offending 
source code, this section may be referenced to 
guide the user in possible recovery procedures. 
The actual error messages may contain line numbers, 
column numbers, or other information of interest. 
This information often is different for each 
program. In the messages below the places where 
such numbers or phrases are printed is marked with 
replacement phrases that are in all upper case 
letters. 


There are some error conditions that may be 
encountered that are recognized by 32K Structured 
BASIC, and not by part of the DBR language system. 
If such a condition arises, a BASIC error number 
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will be printed, such as: 


ERROR 134 


In particular, error 134 could be encountered if 
the DBRGO PROG.SAV command is typed to disk and the 
prepared program PROG.SAV is not actually on the 
disk. This error could also occur during the 
prepare phase if the file DBRLIB is not on the 
disk. If the error occurs during the preparation 
phase, the user may be left in the BASIC 
interpreter. This will be indicated by the 
following prompt: 


ERROR 134 
>> 


BYE should be typed to this prompt to return to the 
operating system, and then the prepare phase should 
be reexecuted after the files have been placed on 
the proper disk. 


ERROR: (1) A typographical error has been found 
on line LINE-NUMBER, character 
CHARACTER-NUMBER, 


PROCEDURE: 
Correct the typographical error and 
recompile. 

ERROR: (2) A grammatical error has been found 


on line LINE-NUMBER, character 
CHARACTER-NUMBER. The construct is 
not understandable in its context. 


PROCEDURE: 

A DBR keyword or grammatical 
structure has been misplaced within 
the DBR source program. Lookup the 
grammatical structure in question in 
the DBR manual and compare it with 
the structure present in the DBR 
source code. Make the necessary 
corrections and recompile. 
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ERROR: 


ERROR: 


ERROR: 


(3) 


(4) 


(5) 


An open comment symbol, {, was found 
inside an already open comment on 
line LINE-NUMBER, character 
CHARACTER-NUMBER. This could be due 
to a failure to close the previously 
opened comment, which was begun on 
line LINE-NUMBER, character 
CHARACTER-NUMBER,. 


PROCEDURE : ; 

For every open comment symbol, {, 
there must be a close comment 
symbol, }, which follows it. These 
two symbols encase a comment and 
they must be in matched pairs. 
Error number 3 will be generated if 
two open comment symbols are 
encountered before an intervening 
close comment symbol, }. Search 
from the beginning of LINE-~NUMBER 
character position CHARACTER-NUMBER 
until the end of the comment is 
found and place a close comment 
symbol (}) there. Recompile the 
source code. 


A comment has been opened, but not 
closed. The last comment begun was 
opened on line LINE-NUMBER, 
character CHARACTER-NUMBER. 


PROCEDURE: 

Search from the beginning of the 
opened comment, determine where the 
end of the comment should be, and 
place a close comment symbol, }, 
there. Recompile the source code. 


There were an incorrect number of 
arguments on the operating system 
command line. ARGUMENTS-EXPECTED 
arguments(s) was (were) expected, 
ARGUMENT-COUNT was (were) received. 


PROCEDURE: 

Be sure that the syntax for the 
command line is being followed 
correctly. In other words, there 
should only be two things on the 
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ERROR: 


ERROR: 


(6) 


(7) 


command line to perform a DBR 
compilation, the three characters 
DBR, and the name of the file that 
contains the source code. They 
should be separated by a blank. 


The file FILE-NAME could not be 
opened. The operating system was 
asked to open it for writing. 


PROCEDURE: 

The file specified by FILE-NAME may 
be write protected, the disk may be 
write protected, or there may be 
some other reason why the file 
cannot be written. This is probably 
more of a matter of knowing the 
operating system upon which DBR is 
running than knowing DBR itself. 
Advice from someone familiar with 
the operating system might be 
required. 


An illegal (invisible, control) 
character has been found on line 
LINE-NUMBER, character 
CHARACTER-NUMBER. It has been 
replaced by a blank in the listing, 
but it is still in the source 
(input) file, and should be removed 
before attempting to compile again. 


PROCEDURE: 

A character which the screen cannot 
print has been found in the source 
code at the location indicated. 
These are sometimes called control 
characters. Before recompiling the 
DBR source program, edit the source 
code eliminating this character. 
These control characters appear as 
two-character sequences in the 
Cromemco Screen Editor. They begin 
with the up-arrow character. 
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ERROR: 


ERROR: 


ERROR :. 


(8) 


(9) 


(10) 


The keyword BYE has been found 
improperly placed on line 
LINE-NUMBER, character 
CHARACTER-NUMBER. BYE is a keyword 
used to mark the end of the file. 
It should appear at the beginning of 
the last line of the file and should 
be the only thing on the line. 


' PROCEDURE: 


BYE is a reserved keyword which must 
not appear- in the DBR source code 
anywhere except at the end of the 
file. This error message can occur 
if the user has attempted to use the 
word BYE as an identifier or -has 
placed the BYE end of program 
message somewhere other than on the 
last line of the file, and as the 
only thing on that line. 


The comment close symbol, }, has 
been found on line LINE-NUMBER, 
character CHARACTER-NUMBER, even 
though no comment has been opened. 


PROCEDURE: 

The open comment symbol may have 
been missing from a previous 
comment. Other errors have probably 


. preceded this one, as DBR tried to 


Make sense of the comment in terms 
of the DBR grammar. It is likely 
that all of the errors can be 
eliminated by properly beginning the 
comment with the left curly bracket. 


The file FILE-NAME could not be 
opened. The operating system was 
asked to open it for reading. 


PROCEDURE: 

The file indicated by FILE-NAME 
could not be opened, probably 
because it doesn't exist. Check to 
see if the file name was misspelled, 
Or in fact is not where it is 
thought to be. 
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ERROR: 


ERROR : 


(11) 


(12) 


An unbalanced quote has been found 
on line LINE-NUMBER, character 
CHARACTER-NUMBER. Any printable 
character may be used in a quoted 
string, but-the quotation must be 
opened and closed on the same line. 


PROCEDURE: 

Be sure that any quotation mark (") 
is followed by another quotation 
Mark on the same line of print. 


The declaration of this field has 
exceeded the maximum number of 
fields allowed per data file. MThis 
Maximum number is FIELD-COUNT-MAX. 


PROCEDURE: 

There are too many fields defined in 
the INPUT command of the DBR 
program. One way to solve this 
problem is to define several 
contiguous fields that are not used 
in the report as a dummy field. 
This dummy field should be defined 
to be type ALPHABETIC and should be 
as long as the total of .the fields 
that are being replaced. If this 
cannot be done, combine several 
contiguous ALPHABETIC fields - into 
one large alphabetic field to 
decrease the number of fields 
defined in the record to the limit 
specified in FIELD-COUNT-MAX. Use 
subscripted references to this field 
in the later commands to specify the 
data needed. Make necessary changes 
to the source program and recompile. 
Note that a subscripted reference is 
in the form: 


FIELD-NAME [start,stop] 
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ERROR: 


ERROR: 


ERROR: 


(13) 


(14) 


(15) 


The identifier IDENTIFIER has 
already been used as a field name. 


PROCEDURE: 
Identifier names may only be used 
once in any one DBR program. Rename 
one or both fields in question and 
recompile. 


The string CHARACTER~STRING will not 
fit into the remaining space in the 
compiler's symbol table. The 
Maximum size of this table is 
TABLE~MAX. BYTES-IN-TABLE bytes 
have already been assigned. An 
additional end of string character 
is required for each string stored. 


PROCEDURE: : 
There is a limit to the number of 
characters that may be used in the 
total of all of the identifiers used 
in the program. That limit has been 
exceeded. This problem can be 
eliminated by reducing-the length of 
the names of the fields defined in 
the INPUT command. However, 
remember that these names must also 
be changed elsewhere in the program. 
Also, remember that every field name 
must be unique. 


The subscripts SUBSCRIPT-NUMBER and 
SUBSCRIPT-NUMBER for the field 
FIELD-NAME are outside of the 
defined character positions for the 
field. 


PROCEDURE: 

The subscripts indicating the byte 
positions of the field to be used 
are larger than the field size 
itself. Change the subscripts such 
that they fall within the field size 
of the field in question. 
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ERROR: 


ERROR: 


ERROR: 


(16) 


(17) 


(18) 


This identifier exceeds the maximum 
length for identifiers which is 
ID-MAX-LENGTH characters. 


PROCEDURE: 
Shorten the length of the identifier 
such that it is less than or equal 
to the maximum length allowed for an 
identifier. 


This numeric expression evaluates to 
a long floating point number which 
has an exponent that exceeds the 
range attainable by exponents. The 
range of a long floating point 
exponent is from 
MAX-NEGATIVE-EXPONENT to 
MAX-POSITIVE-EXPONENT. The maximum 
number of significant digits is 
MAX-SIGNIFICANT-DIGITS. 


PROCEDURE : 

Change the number in the DBR program 
so that it has an exponent that is 
within the legal range indicated in 
the error message. 


This numeric expression is a long 
floating. point number which contains 
more significant digits than a long 
floating point number is capable of 
Maintaining. The maximum number of 
digits allowed in a mantissa 
(exponent part) is 
MAX~DIGITS-ALLOWED. 


PROCEDURE: 

Change the number in the DBR program 
so.-that it has a legal number of 
Significant digits. Significant 
digits are the total number of 
digits specified on both sides of 
the decimal point. Zeros that are 
in the number count as significant 
digits. 
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ERROR: 


ERROR: 


ERROR: 


(19) 


(20) 


(21) 


Subscripting has been specified for 
the field FIELD-NAME, even though it 
is not an ALPHABETIC field. 


PROCEDURE: 

Subscripting is only allowed on 
ALPHABETIC fields. Either redefine 
the field as being ALPHABETIC or 
eliminate the subscripting from the 


' gource code. 


A quoted string has been found which 
exceeds the maximum length allowed. 
The maximum length is 
MAX-QUOTED-STRING-LENGTH. 


PROCEDURE: 

Divide the quoted string into two or 
more shorter quoted strings and 
recompile, Remember that each of 
the strings will require its own 
PRINT statement. 


Comparisons must involve entities of 
the same type. Fields declared to 
be numeric are converted to numbers 
and must be compared to numeric 
constructs. Alphabetic fields must 
be compared to quoted strings. 


PROCEDURE: 

This error message will be generated 
if a field of type NUMERIC is 
compared to a value that was put in 
quotation marks. If this is the 
case, remove the quotation marks and 
recompile. On the other hand, a 
field of type ALPHABETIC might be 
getting compared to a number. If 
so, determine whether or not the 
field is really ALPHABETIC or 
NUMERIC. Remember, NUMERIC fields 
contain characters that DBR will 
attempt to convert to an arithmetic 
quantity. 
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ERROR: 


ERROR: 


ERROR: 


ERROR: 


(22) 


(23) 


(24) 


(25) 


The number and complexity of the 
qualification expressions (WHERE and 
FIND) have exceeded DBR's_ storage 
ability. 


PROCEDURE: 

If possible, simplify the WHERE and 
FIND constructs within the DBR 
source program and recompile. If 
this cannot be done, the program may 
have to be broken into more than one 
program. 


The specification is too complex for 
DBR to generate a report program. 


PROCEDURE: 

The source code should be examined 
to see if any simplifications can be 
made. If this is not possible, the 
program may have to be broken up 
into more than one program. 


The field name FIELD-NAME has not 
been defined as an input field. 


PROCEDURE: 

The field name in question should be 
present in the INPUT command. If it 
is not, place it there. A 
misspelling of a field name may 
cause this error. 


The subscripts SUBSCRIPT-NUMBER and 
SUBSCRIPT-NUMBER define a null 
range. 


PROCEDURE: 

The starting subscript is greater 
than the ending subscript. The 
starting subscript (left subscript) 
should always be less than or equal 
to the ending subscript (right 
subscript). 
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ERROR: 


ERROR: 


ERROR: 


(26) 


(27) 


(28) 


The field FIELD-NAME does not have 
as Many positions as the quoted 
string to which it is being compared 
in the FIND command. Therefore, 
either the quoted string is longer 
than intended or some subscripting 
is incorrect. 


PROCEDURE: 

Change the subscripting or change 
the length of the .quoted string, 
depending upon which is incorrect. 


The maximum number of characters 
that may be involved in a SORT list 
is MAX-BYTES. This maximum has been 
exceeded. 


PROCEDURE: 

The number of characters in the 
field, fields, or field parts upon 
which the SORT is taking place is 
too large for DBR to execute. 
Rearrange the sort so that the total 
number of bytes upon which the sort 
is to take place is less than or 
equal to the maximum specified in 
the error message. 


The maximum number of record parts 
that may be used in the SORT command 
is MAX-PARTS. 


PROCEDURE: 

Decrease the number of record parts 
to be less than or equal to the 
number specified in the error 
message. 
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ERROR: 


ERROR: 


' ERROR: 


ERROR: 


(29) 


(30) 


(31) 


(32) 


The length of the source code file 
name can be no longer than 
MAX-LENGTH characters. 


PROCEDURE: 

The DBR source code file name is too 
long. Shorten it, and recompile the 
program. 


CDOS files used as source code input 
to DBR may not contain drive 
specifiers, extensions, or 
characters other than alphabetics 
and digits. 


PROCEDURE: 
Correct and recompile. 


FORMAT command clauses (other than 
BREAK clauses) may only be specified 
once each. Here, the CLAUSE~-NAME 
clause has been specified multiple 
times. 


PROCEDURE: 

This might have occurred due to a 
typing error or if the FIRST PAGE 
HEADER clause and the PAGE header 
clause where used, but the word 
FIRST was left off the FIRST PAGE 
HEADER expression. The code should 
be examined to determine which 
command was used twice, and should 
be corrected before compiling again. 


ALPHABETIC fields may not be used in 


numeric expressions. 


PROCEDURE: 

Either redefine the field being used 
to be numeric, replace it with a 
correct numerically defined field, 
or eliminate it entirely from the 
numeric expression, whichever is 
appropriate. 
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ERROR: 


ERROR: 


(33) 


(34) 


The GROUP keyword may only be used 
to qualify aggregates in an ON BREAK 
clause. 


PROCEDURE: 

The GROUP keyword is being used in 
an attempt to qualify aggregates in 
other than an ON BREAK clause. The 
GROUP aggregates only make sense in 
a BREAK clause. The BREAK clause 
construct contains a field specifier 
that determines the groups that the 
GROUP aggregates are defined upon. 
If this error message is not the 
result of a typing error, the 
programmer should re-think the 
Situation. If a GROUP aggregate 
really is required, as opposed to a 
global aggregate, then the program 
should be rewritten with a SORT 
command and a BREAK clause 
corresponding to one of the fields 
in that SORT command. The 
possibility of using a global 
aggregate qualified with a WHERE 
clause should be considered. 
Remember, aggregates may be 
qualified as GROUP aggregates, or 
with the WHERE clause, but not both. 


Fields must be of type ALPHABETIC or 
NUMERIC to be printed with the PRINT 
statement. Fields that are of one 
of the binary arithmetic types 
(INTEGER, SHORT, or LONG), such as 
the field FIELD-NAME, must be 
printed with the PRINT USING 
statement. 


PROCEDURE: 

The PRINT statement, and its other 
forms, PRINT WITHOUT TRAILING 
BLANKS, PRINT AS BOLD FACE, and 
PRINT WITH UNDERLINING, may only be 
used on fields that are type 
ALPHABETIC. 
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ERROR : 


ERROR: 


ERROR: 


(36) 


(37) 


(38) 


The maximum number of characters 
allowed in a format string is 
MAX-BYTES. 


PROCEDURE: 

The maximum allowable characters in 
a PRINT USING format string has been 
exceeded. Shorten the format string 
and re-compile. 


The maximum number of BREAK clauses 
(MAX-NUMBER) has been exceeded. 


PROCEDURE: 

Rewrite the program such that it has 
less than or equal to the maximum 
number of BREAK clauses. Remember, 
each BREAK clause must be based upon 
a corresponding component of the 
SORT command, and the BREAK clauses 
must be nested in the same order as 
these SORT command elements. 


An error has occurred in the 
correspondence between the BREAK 
fields and the SORT fields. BREAK 
clauses may only be based on fields 
or subfields that are involved in 
the SORT command, and must occur in 
the same order. 


- PROCEDURE: 


If the SORT command specifies a sort 
in the order, major to minor, of 
FIELD-A, FIELD-B, FIELD-C, then the 
ON BREAK OF clauses must be placed 
in just that same order (i.e., ON 
BREAK OF FIELD-A_ followed later by 
ON BREAK OF FIELD-B followed later 
by ON BREAK OF FIELD-C). In this 
case, a field or subscripted field 
that was used to condition a BREAK 
clause did not appear in the SORT 


. command at all. 
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ERROR: 


ERROR: 


ERROR: 


ERROR: 


(39) 


(40) 


(41) 


(42) 


The argument of the SKIP LINES 
construct must be greater than zero. 


PROCEDURE : 
Correct and re-compile. 


The SKIP TO TOP OF PAGE construct is 
only allowed in ON BREAK, ON EVERY 
RECORD, and ON LAST RECORD clauses. 


PROCEDURE: 
Correct and re-compile. 


Aggregates are not allowed in the 
numeric expression arguments of 
other aggregates. 


PROCEDURE: 

The argument of an aggregate is 
delimited by the outermost 
parentheses in the aggregate 
expression. This argument may not 
contain another aggregate. 


The control fields used in the BREAK 
clauses must be nested in the same 
order as their corresponding fields 
in the SORT command. 


PROCEDURE: 

If the SORT clause specifies a sort 
in the order, major to minor, of 
FIELD-A, FIELD-B, FIELD-C, then the 
ON BREAK OF clauses must be placed 
in just that same order (i.e., ON 
BREAK OF FIELD-A followed later by 
ON BREAK OF FIELD-B followed later 
by ON BREAK OF FIELD-C). 
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ERROR: 


(43) 


The total number of lines needed by 
the top and bottom margins and the 
page headers and trailers does not 
leave any space for the printing of 
lines conditioned on every record or 
on the control break of a field. 


PROCEDURE: 
Decrease the number of lines in any 


- o£ the following: (1) the top 


Margin; (2) the bottom margin; (3) 
the page headings; (4) the page 
trailers. These margins were set in 
the OUTPUT command. 
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Chapter 9 


TIME REQUIREMENTS FOR RUNNING TYPICAL REPORTS 


DBR was designed to be a programming language that 
was easy to use. Report programs are usually run 
over night, when no one is using a computer. In 
order to accomplish DBR's design objective, the 
speed of the programs that are generated by DBR was 
sacrificed to some extent. 


The time that a DBR program will require to run 
will almost directly depend on how large the data 
file is and how much of the data file is used in 
the report. The entire data file will be read 
during the qualification half of the report phase, 
and if all of the records are involved in the 
printing half of the report phase, then they will 
all be read again. If the report being written is 
very simple, perhaps only the result of some 
aggregate evaluations, it will probably run twice 
as fast as a report that must re-read all of the 
records for printing. 


The length of the sort key will also influence the 
time required to run a report. The sort key length 
will be at least two bytes (characters) for every 
report. The sort key grows as the number of bytes 
involved in the SORT command grows. The larger the 
sort key, the larger the sorting scratch file will 
have to be, and the longer it will take for the 
report to be produced. 


The DBR programmer should not be concerned with 
speed of producing the report unless it becomes a 
problem. As has been discussed, the report phase 
of many DBR programs can be put into a batch file 
and run during the evening. Care should be taken 
that these programs do not have any interactive 
parts. To assure this, the batch file should be 
run during the day first, on small test data bases. 


Reports that are run with the data file, sort file, 
or both on hard disks, run about four times faster 
than if run on large floppy disks. Programs run on 
large floppy disks run faster than on small floppy 
disks. 
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Chapter 10 
DBR GRAMMAR —- BNF 


This chapter contains the linguistic specification 
for the DBR language in the form of Backus-Naur 


Form grammar rules. This convention is used 
throughout computer science to strictly define 
programming languages. Such specifications are 


often of use to programmers familiar with the 
convention, so it is offered here. 


In the grammar specification, capital letters are 
used to denote tokens, such as keywords and 
numbers. Keywords begin with the two letters "Kw". 


specification ::= 
inputcommand outputcommand findcommand 
sortcommand formatcommand KWBYE 
| 
inputcommand findcommand sortcommand 
ee KWBYE 
inputcommand outputcommand findcommand 
 idamaema KWBYE 


inputcommand findcommand formatcommand KWBYE 
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inputcommand ::= 
KWINPUT filenamepart filetypepart 
fielddecs KWEND 
filenamepart ::= KWDATA KWFILE QUOTEDSTRING 
filetypepart ::= Re KWTYPE KWDATA KWBASE 


KWFILE KWTYPE KWREGULAR 


fielddecs ::= fielddecs fielddec 

esisaes 
fielddec ::= fieldname fieldtypeandlength 
fieldname 2:= KWFIELD IDENTIFIER 
fieldtypeandlength 


¢:= KWTYPE KWALPHABETIC KWLENGTH NUMBER 
a NUMERIC KWLENGTH NUMBER 
mies INTEGER 
Kony SHORT 


KWTYPE LONG 
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outputcommand ::= KWOUTPUT settings KWEND 


KWOUTPUT KWFILE QUOTEDSTRING KWFILE KWTYPE 
KWDATA KWBASE KWRECORD KWLENGTH NUMBER KWEND 
I 


KWOUTPUT KWFILE QUOTEDSTRING KWFILE 
KWTYPE KWREGULAR 


settings 


KWPAGE KWLENGTH NUMBER 
Seioe KWMARGIN NUMBER 
mnsoeiou MARGIN NUMBER 
rene KWMARGIN NUMBER 
Tsenene KWTO KWLINE KWPRINTER 
findcommand ::= KWFIND KWEVERY KWRECORD KWEND 
aris boolexp KWEND 
boolexp ::= boolexp KWAND boolexp 
paclexs KWOR boolexp 
tieldia relop value 
LEFTPAREN boolexp RIGHTPAREN 
fieldid s::= IDENTIFIER 
te eeoeea substringexp 
substringexp ::= Il1tsubstring COMMA rtsubstring 
ltsubstring ::= LEFTSQUARE NUMBER - 
rtsubstring ::= NUMBER RIGHTSQUARE 
relop ::= EQUALS 
neacouats 
er 
ter 
weibiats 
Uimetate 
ae - value 33> QUOTEDSTRING 
ee 
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sor tcommand 


sortfieldlist 


drive 


KWSORT sortfieldlist KWEND 


KWSORT sortfieldlist KWON KWDRIVE drive KWEND 


haga fieldid 


sortfieldlist KWCOMMA fieldid 


KWA 


| 
KWB 
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formatcommand ::= KWFORMAT KWEVERY KWFIELD KWEND 


| 
KWFORMAT clauses KWEND 


clauses ::= clauses clause 
clause 
clause :3:= pageheader clausebody 


pagetrailer clausebody 
firstpageheader clausebody 
Vieeepaeer clausebody 
onbreakofid clausebody 
oneveryrecord clausebody 
pageheader ::= KWPAGE KWHEADER 
pagetrailer | ::= KWPAGE KWTRAILER 


firstpageheade 


ee FS 


= KWFIRST KWPAGE KWHEADER 
onlastrecord ::= KWON KWLAST KWRECORD 
onbreakofid ::= KWON KWBREAK KWOF fieldid 
oneveryrecord ::= KWON KWEVERY KWRECORD 
clausebody 23> far oeerens statement 


statement 
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statement 


numexp 


7 ane 


KWPRINT 


| 
KWPRINT 
KWUSING 
| 


KWPRINT 
KWUSING 
| 


KWPRINT 


fieldid 

KWWITHOUT KWTRAILING KWBLANKS fieldid 
KWAS KWBOLD KWFACE fieldid 

KWWITH KWUNDERLINING fieldid 
QUOTEDSTRING 

KWAS KWBOLD KWFACE QUOTEDSTRING 
KWWITH KWUNDERLINING QUOTEDSTRING 
KWUSING FORMATSTRING numexp 


KWAS KWBOLD KWFACE 
FORMATSTRING numexp 


KWWITH KWUNDERLINING 
FORMATSTRING numexp 


KWNEW KWLINE 


| 
KWSKIP NUMBER KWLINES 
| 


KWSKIP KWTO KWTOP KWOF KWPAGE 


KWPAUSE 


rie NUMBER 


KWPAGE NUMBER 


numexp PLUS numexp 


numexp MINUS numexp 


numexp TIMES numexp 


numexp DIVIDE numexp 
| 


oe EXP numexp 


oe 


fieldid 
| 


number 


LEFTPAREN numexp RIGHTPAREN 
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aggregate 


KWCOUNT 


| 
ree KWWHERE boolexp 


KWGROUP KWCOUNT 

nen KWWHERE boolexp 

— KWPERCENT 

eunsuce KWOF LEFTPAREN numexp RIGHTPAREN 
iets KWOF LEFTPAREN numexp RIGHTPAREN 
KWWHERE boolexp 

Sianede KWTOTAL KWOF LEFTPAREN numexp RIGHTPAR. 
oe KWOF LEFTPAREN numexp RIGHTPAREN 


| 
KWAVERAGE KWOF LEFTPAREN numexp RIGHTPAREN 
KWWHERE BOOLEXP 


KWGROUP KWAVERAGE KWOF LEFTPAREN numexp RIGHTP 
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3355A printer, 70 
3703 line printer, 70 


aggregate, 13 

aggregates, 63 

aggregates, global, 64 
aggregates, group, 63 
ALPHABETIC data type, 17, 28, 48 
arithmetic operations, 61 
AVERAGE aggregate, 1, 29, 64 


blank padding, 45 

boolean expression, 6, 18, 21, 51 

boolean operators, 52 

BOTTOM MARGIN option of OUTPUT command, 38 
BYE keyword, 15, 43 


comments, 44 

compilation phase, 19 

control break, 34 

control-p convention, 5, 8 
COUNT aggregate, 1, 31 
Cromemco 3355A printer, 69 
Cromemco 3703 line printer, 69 


DATA BASE option of file type specification, 47 
DATA FILE specification, 47 

DBMS, 9 

DBR file extension, 40 

DBR.COM, 40 

DBRGO, 41 

DBRLIB, 41 

DBROVRLA. SAV, 41 

DBRPREP.COM, 41 

default page size, 50 

drive specification in SORT command, 53 
dummy field, 49 


END keyword, 15, 18, 49 

ERR file extension, 40 
ESCape key, 41 

exponential notation, 46, 60 


FIELD NAME specification, 48: 
field names, 47 

FIELD TYPE specification, 48 
FILE TYPE specification, 47 
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FIND command, 2, 5, 15, 18, 21, 51 

FIRST PAGE HEADER clause, 55 

fixed dollar sign, 59 

fixed positive and negative signs, 60 
floating dollar sign, 59 

floating positive and negative signs, 60 
FORMAT command, 5, 15, 18, 54 

FORMAT EVERY FIELD, 22 

format string, 28, 59 


global aggregate, 13, 66 
global aggregates, 64 

group aggregate, 13, 66 
group aggregates, 63 

GROUP AVERAGE aggregate, 68 
GROUP PERCENT aggregate, 67 
GROUP TOTAL aggregate, 67 


HEADER, PAGE clause, 24, 55 


INPUT command, 15, 47 
INTEGER data type, 48 
INTEGER numbers, 29 
integers, 46 


left margin default, 50 

LEFT MARGIN option, 50 

LEFT MARGIN option of OUTPUT command, 38 
logical operators, 52 

LONG data type, 48 

LONG floating point nunibers, 29 

lower case, 47 

LST file extension, 40 


NUMERIC data type, 17, 28, 48 


ON BREAK clause, 34 

ON BREAK OF clause, 54, 56 

ON EVERY RECORD clause, 24, 55 
ON LAST RECORD clause, 30, 56 
OUTPUT command, 15, 38, 49 
output file, 50 

OUTPUT TO LINE PRINTER, 8 


PAGE HEADER clause, 24, 55 
PAGE LENGTH option, 75 
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PAGE LENGTH option of OUTPUT command, 38 
PAGE NUMBER, 68 

PAGE TRAILER clause, 57 

parentheses, 53 

PAUSE statement, 73 

PERCENT aggregate, 1, 31, 64 

preparation phase, 19 

PRINT, 12 

PRINT AS BOLD FACE option, 69 

PRINT AS BOLD FACE statement, 69 

PRINT NEW LINE, 24 

PRINT statement, 58 

PRINT USING, 12 

PRINT USING statement, 28, 59 

PRINT WITH UNDERLINING statement, 70 
PRINT WITHOUT TRAILING BLANKS, 12 

PRINT WITHOUT TRAILING BLANKS statement, 45, 70 


real numbers, 46 

RECORD NUMBER, 69 

record qualification, 86 

REGULAR option of file type specification, 47 
relational operators, 51 

report header, 12 

report phase, 19, 21, 85 

report trailer, 12 


SAV file extension, 41 

scratch file, 25 

Screen Editor, 39 

SHORT data type, 48 

SHORT floating point numbers, 29 
SKIP N LINES statement, 24, 71 
SKIP TO TOP OF PAGE statement, 72 
SORT command, 5, 15, 25, 53 

sort file, 10, 11 

sorting, 10 

Special characters, 47 
subscripting, 44, 53 


TOP MARGIN option of OUTPUT command, 38. 
TOTAL aggregate, 1, 29, 64 

TRAILER, PAGE clause, 57 

type compatibility, 52 


upper case, 47 


WHERE clause, 45, 64 
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